Try
poj#!/usr/bin/perl/ use strict; use warnings; my $id = "AC"; my $root = '/home/results/initial/'; for my $i (2..3){ for my $k (1..3){ my $path = $root.sprintf "%s%04d/F%05d",$id,$i,$k; print "$path\n"; for (glob "$path/MV*"){ print "$1\n" if /MV(\d{4})/; } } }
In reply to Re^3: Use of uninitialized value $_ in pattern match (m//)?
by poj
in thread Use of uninitialized value $_ in pattern match (m//)?
by fasoli
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |