hakonhagland

extract-strings

Oct 26th, 2021
678
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. my $fn = 'P2.txt';
  2. open ( my $fh, '<', $fn ) or die "Could not open file '$fn': $!";
  3. my $str = do { local $/; <$fh> };
  4. close $fh;
  5. my @result = $str =~ /"(.*?)"/g;
  6.  
  7.  
RAW Paste Data