Advertisement
Guest User

Untitled

a guest
Jun 26th, 2017
62
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.31 KB | None | 0 0
  1.         #Recived: 007 1 sla.ro(master) 011ecee7d295c066ae68d4396215c3d0
  2.         if ( $line =~ /Recived\:\s(.+)\s(.+)/ )
  3.         {
  4.             my $msgnumber = $1;
  5.             my $msg $2
  6.             if ($msgnumber =~ m/007/)
  7.             {
  8.                 if ($msg =~ /(.+)\s(.+)\s(.+)/ )
  9.                 {
  10.                     my $id =$1
  11.                     my $name = $2;
  12.                     my $serial = $3;
  13.                 }
  14.             }
  15.         }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement