Find centralized, trusted content and collaborate around the technologies you use most.
Learn more about CollectivesStack Internal
Knowledge at work
Bring the best of human thought and AI automation together at your work.
Explore Stack InternalA better solution is to use readdir() instead (or File::Find if you ever want to do it recursively):
my $dir = "C:\\SomeFiles"; my @flist; opendir(my $dh, "$dir"$dir) || die "$!"; while (my $file = readdir($dh)) { if ($_$file =~ /.*(\\.txt)$txt$/i) { print $file; $file . "\n"; my $txt = do { local $/ = undef; open(my $ff, "<", "$dir\\$file") || die "$!"; <$ff>; }; print substr($txt, 0, 100); . "\n"; } } closedir($dh); A better solution is to use readdir() instead (or File::Find if you ever want to do it recursively):
my $dir = "C:\\SomeFiles"; my @flist; opendir(my $dh, "$dir") || die "$!"; while (my $file = readdir($dh)) { if ($_ =~ /.*(.txt)$/i) { print $file; my $txt = do { local $/ = undef; open(my $ff, "<", "$dir\\$file") || die "$!"; <$ff>; }; print substr($txt, 0, 100); } } A better solution is to use readdir() instead (or File::Find if you ever want to do it recursively):
my $dir = "C:\\SomeFiles"; opendir(my $dh, $dir) || die "$!"; while (my $file = readdir($dh)) { if ($file =~ /\\.txt$/i) { print $file . "\n"; my $txt = do { local $/ = undef; open(my $ff, "<", "$dir\\$file") || die "$!"; <$ff>; }; print substr($txt, 0, 100) . "\n"; } } closedir($dh); A better solution is to use readdir() instead (or File::FindFile::Find if you ever want to do it recursively):
my $dir = "C:\\SomeFiles"; my @flist; opendir(my $dh, "$dir |""$dir") || die "$!"; while (my $file = readdir($dh)) { if ($_ =~ /.*(.txt)$/i) { print $file; my $txt = do { local $/ = undef; open(my $ff, "<", "$dir\\$file") || die "$!"; <$ff>; }; print substr($txt, 0, 100); } } A better solution is to use readdir() instead (or File::Find if you ever want to do it recursively):
my $dir = "C:\\SomeFiles"; my @flist; opendir(my $dh, "$dir |") || die "$!"; while (my $file = readdir($dh)) { if ($_ =~ /.*(.txt)$/i) { print $file; my $txt = do { local $/ = undef; open(my $ff, "<", "$dir\\$file") || die "$!"; <$ff>; }; print substr($txt, 0, 100); } } A better solution is to use readdir() instead (or File::Find if you ever want to do it recursively):
my $dir = "C:\\SomeFiles"; my @flist; opendir(my $dh, "$dir") || die "$!"; while (my $file = readdir($dh)) { if ($_ =~ /.*(.txt)$/i) { print $file; my $txt = do { local $/ = undef; open(my $ff, "<", "$dir\\$file") || die "$!"; <$ff>; }; print substr($txt, 0, 100); } } A better solution is to use readdir() instead (or File::Find if you ever want to do it recursively):
my $dir = "C:\\SomeFiles"; my @flist; opendir(my $dh, "$dir |") || die "$!"; while (my $file = readdir($dh)) { if ($_ =~ /.*(.txt)$/i) { print $file; my $txt = do { local $/ = undef; open(my $ff, "<", "$dir\\$file") || die "$!"; <$ff>; }; print substr($txt, 0, 100); } }