SHARE
TWEET

Untitled

a guest Sep 21st, 2019 65 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #perl
  2. use strict;
  3. use utf8;
  4. use open qw(:std :utf8);
  5. my $filename = 'rasp.html';
  6. open(my $fh, '<:encoding(UTF-8)', $filename)
  7.     or die "Could not open file '$filename' $!";
  8.  
  9. while ($_=<$fh>)
  10.     {
  11.  
  12.     my $lgr="ЛТ4-31А";
  13.     if (/($lgr).+([0-9]{4})/io)
  14.     {
  15.     print "$1 hehe\n";
  16.     }
  17.     }
  18.     #rint "'" . utf8::is_utf8($_) . "'" . "\n";
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top