Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"
 
PerlMonks  

csuhockey3's scratchpad

by csuhockey3 (Curate)
on Jun 01, 2004 at 20:17 UTC ( #358520=scratchpad: print w/ replies, xml ) Need Help??

#!/usr/bin/perl -w # Usage: dos2unix <DIRECTORY> $directory = shift @ARGV; $directory = '.' unless $directory; chdir( $directory ) || die "Unable to enter directory '$directory'.\n$ +!\n"; @files = <*.data>; $| = 1; $linesFixed = 0; foreach( @files ) { print "$_\t"; open(INPUT, "<$_"); rename( $_, "$_.bak") || die "Unable to rename $_\n$!\n"; open(OUTPUT, ">$_"); while(<INPUT>) { if ( s/\r\n/\n/ ) { $linesFixed++; } print OUTPUT; } } continue { print "($linesFixed)\n"; $linesFixed = 0; close INPUT; close OUTPUT; }
Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (16)
As of 2014-08-28 14:11 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (261 votes), past polls