2. showqueuename.pl "[inbound|outbound]" "%asn%"
usage: showqueuename.pl "inbound" "%grd%"
Description: show the full tables name that match the criteria
return:
inbound_xf_toposgrd
#!/usr/bin/perl
my $pre=$ARGV[0];
$_=$ARGV[1];
s/^.//s;
chop;
$asn=$_;
open FILE,"$ws2/statuscheck.txt" or die "can't open file:$!\n";
print "return:\n";
foreach(
){
if ($_=~/$asn/ && $_=~/$pre/ && $_=~/top/){
print "$_\n";
}
}
阅读(140) | 评论(0) | 转发(0) |
