foreach (@test_node_list) { if (-e "/usr/adm/best1_default/collect/$_/noInstance") { # It prob +ably is a node with data if (-e "/usr/adm/best1_default/manager/$_") { # It has +a vis files directory push @node_list, $_; print "/usr/adm/best1_default/manager/$_/$vis_year$vis_mon +th$vis_zero$vis_day*.vis"; if (-e "/usr/adm/best1_default/manager/$_/$vis_year$vis_mo +nth$vis_zero$vis_day*.vis") { system("/appl/perform/best1home/perl/clean_graphics.pl +", "$_"); print "It exists.\n"; } } } }
In reply to Re^3: Simple File Test
by kwaping
in thread Simple File Test
by mbeason
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |