Help for this page

Select Code to Download


  1. or download this
     
#!/usr/bin/perl -w 
open(OUT,"> /export/home/foo/bar/test.csv") or die "Cannot open output
+ file;
print OUT "foo,bar,totally foobar\n"
  2. or download this
     
open(READ,"/export/home/foo/bar/foo.log") or die "Cannot open foo.log\
+n";
while ($line = <READ>)
{