Help for this page

Select Code to Download

Select or download this

my $cmd1 = "/bin/mv /etc/$i.d/$name /etc/$i.d/.NO.$name" or print 
        "/etc/$i.d/$name not found\n";

`$cmd1` if $name =~ /\b(K|S)\d{2}?$expression\b/;

Select or download this

if ($name =~ /^[KS]\d{2}$expression$/)
{
        rename "/etc/$i.d/$name", "/etc/$i.d/.NO.$name"
                or print "/etc/$i.d/$name not found\n";
}