View | Details | Raw Unified | Return to bug 8674
Collapse All | Expand All

(-)a/misc/batchdeletebiblios.pl (-3 / +3 lines)
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
- 

Return to bug 8674