getStrings 242 B

1234567891011
  1. #! /usr/bin/perl
  2. #
  3. # git diff -U0 SHA...develop unpacked/extensions unpacked/jax unpacked/MathJax.js | ./getStrings | sort | uniq
  4. #
  5. while ($line = <>) {
  6. chomp($line);
  7. while ($line =~ s/("(\\.|.)*?"|'(\\.|.)*?')//) {print $1,"\n"}
  8. }
  9. 1;