Code:
$dest = "C:\\cygwin"; while (<STDIN>) { print "Making $dest\\$_\n"; chop; mkdir "$dest\\$_"; }
$dest = "C:\\cygwin"; while (<STDIN>) { print "Making $dest\\$_\n"; chop; mkdir "$dest\\$_"; }
use HTTP::Request::Common; use LWP::UserAgent;
C:\> [B]echo %JAVA_HOME%[/B] C:\j2sdk1.5.0_04 C:\> [B]dir %JAVA_HOME%[/B] Volume in drive C has no label. Volume Serial Number is 9023-0CA4 Directory of C:\j2sdk1.5.0_04 11/13/2006 11:36
#!/bin/perl $sample_line = "D30002115964000080000200US"; @ary = unpack "A4A8A*", $sample_line; print "$ary[0]\n"; print "$ary[1]\n"; print "$ary[2]\n";
$line_count = 0; while (<>) { $line_count++; if ($line_count == 1) { # First line. Check if header row exists using fancy Perl RE if (!/^HEADER$/) { print "HEADER\n";
Leave a comment: