Help for this page

Select Code to Download


  1. or download this
    161248,/vol/filelist,CABINET
161200,/vol/filelist,INVENTORY
161400,/vol/filelist,INVENTORY
  2. or download this
    open my $FH2, '<', '/tmp/fileread' or die "unable to open file 'file' 
+for reading : $!";
open my $FH6, '>', '/tmp/tst.txt' or die "unable to open file 'file' f
+or reading : $!";
...
print $line;
}
close $fh;
  3. or download this
     my ($column_1, $column_2) = split /,/;
    print {$FH6} "$column_1\n" if defined duplicates{$column_2};
...
In the last line, column 2 (/vol/filelis) and column3 (INVENTORY) are 
+the same.

Does anyone have a suggestion?