while (defined ($profile = <*.pf>)) {
chomp($profile);
print "$profile,";
}
The script aborts without printing anything. The directory has 2592 ".pf" files.
The perl I use is:
% /usr/local/bin/perl -v
This is perl, version 5.004_04 built for sun4-solaris
Copyright 1987-1997, Larry Wall
Perl may be copied only under the terms of either the Artistic License or the
GNU General Public License, which may be found in the Perl 5.0 source kit.
Migrated from rt.perl.org#1891 (status was 'resolved')
Searchable as RT1891$
The text was updated successfully, but these errors were encountered: