InterviewSolution
I need help adding this: tr -d '\r'into this script.#!/usr/bin/perl -wopen(DIR, "ls -1b *ACH.*|")or DIE "Can't open due to $!";@files = ;close(DIR);foreach $file (@files) { chomp($file); $newfile = "EDSATM".substr($file, -11,4); $newfile =~ s/-//g; print "Executing mv $file $newfile\n"; system "mv $file $newfile";}# END CODE SNIPPET ############
Your experience on this site will be improved by allowing cookies. Read Cookie Policy