Shell Programming and Scripting

echo "aaa mmm 00-11113 hhh" | perl -wlane ' /\b\d{2,}\-\d{5,}\b/ and $phone=$&; @nums=(split /-/,$phone) ;
if (int($nums[0])==0 || int($nums[1]==0)){print "Phone number not valid"} ; '

perl -wlane ' /\b\d{2,}\-\d{5,}\b/ and $phone=$&; @nums=(split /-/,$phone) ;
if (int($nums[0])==0 || int($nums[1]==0)){print "Phone number not valid at line  number $."} ; '  infile.txt

open(TMPOUTPUT, "<$tmp_output_file") or die "Can't open output";
open(OUTPUT, ">$output_file") or die "Can't open output";

while ($line = <TMPOUTPUT>)
{
  $line =~ s/ +\n//;
  ($cur_phone, $xxxxxx, $xxxxxx) = split(";", $line);
  ($cur_phone_prefix, $cur_phone_postfix) = split("-", $cur_phone);

  $length_prefix = length ($cur_phone_prefix);
  $length_postfix = length ($cur_phone_postfix);
  if ($length_prefix < 2 || $length_postfix < 5 )
  {
    print "Invalid phone number: $cur_phone \n";
  }
  else
  {
    print "Valid phone number: $cur_phone \n";
  }
}
close TMPOUTPUT;
close OUTPUT;