Lines 16-24
pod2usage(1) if $help or not @ARGV;
Link Here
|
16 |
|
16 |
|
17 |
for my $file ( @ARGV ) { |
17 |
for my $file ( @ARGV ) { |
18 |
say "Find biblionumber in file $file"; |
18 |
say "Find biblionumber in file $file"; |
19 |
open(FD, $file) or say "Error: '$file' $!" and next; |
19 |
my $fh; |
|
|
20 |
open($fh, '<', $file) or say "Error: '$file' $!" and next; |
20 |
|
21 |
|
21 |
while ( <FD> ) { |
22 |
while ( <$fh> ) { |
22 |
my $biblionumber = $_; |
23 |
my $biblionumber = $_; |
23 |
$biblionumber =~ s/$1/\n/g if $biblionumber =~ m/(\r\n?|\n\r?)/; |
24 |
$biblionumber =~ s/$1/\n/g if $biblionumber =~ m/(\r\n?|\n\r?)/; |
24 |
chomp $biblionumber; |
25 |
chomp $biblionumber; |
25 |
- |
|
|