Guest User

Untitled

a guest
Nov 7th, 2016
127
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. perl -w -e 'use strict; print "\n"; my @rows = ( qr/W{0,5}(HO\s|ER)W{0,3}[IF][LOL]+W(IT|I)N?/, qr/(WI|TH)[EL\sE]{2}(ECT|EL)+I[L-P]*/, qr/(SE|D|C\.|ON)+(\sC|ALD)(L|\sTR|IN)+G?(UMP|TO)+L?N?/); my @cols=(qr/[WHAT}{2}[DOES]/, qr/[HOME]+/, qr/[CANOE]+/, qr/[.AS\s]+/, qr/[\sLEW]/, qr/[DECLINE]{3}/, qr/[LEL\s]/, qr/[LICK]{2}[IT]/, qr/[\sTERN]+/, qr/[WIN]{2}[BUT]/, qr/(I|O)+M?/, qr/N+P?/); my @r=("WHO WILLWIN", "THE ELECTION"); for my $r2 ("SEC. CLINTON", "DONALD TRUMP") { $r[2]=$r2; my @c; for my $r (0..2) { my $rr=0; $rr++ if ($r[$r] =~ /$rows[$r]/); print "$r[$r] =~ /$rows[$r]/ -> $rr\n"; for my $c (0..$#cols) { $c[$c]=$c[$c] || ""; $c[$c].=substr($r[$r],$c,1); }} print "  cols:"; for my $c (0..$#cols) { my $cc=0; $cc++ if ($c[$c] =~ /$cols[$c]/); print "\t$c[$c] =~ /$cols[$c]/ -> $cc\n"; } print "\n\n";}'
  2.  
  3. WHO WILLWIN =~ /(?^:W{0,5}(HO\s|ER)W{0,3}[IF][LOL]+W(IT|I)N?)/ -> 1
  4. THE ELECTION =~ /(?^:(WI|TH)[EL\sE]{2}(ECT|EL)+I[L-P]*)/ -> 1
  5. SEC. CLINTON =~ /(?^:(SE|D|C\.|ON)+(\sC|ALD)(L|\sTR|IN)+G?(UMP|TO)+L?N?)/ -> 1
  6.   cols: WTS =~ /(?^:[WHAT}{2}[DOES])/ -> 1
  7.         HHE =~ /(?^:[HOME]+)/ -> 1
  8.         OEC =~ /(?^:[CANOE]+)/ -> 1
  9.           . =~ /(?^:[.AS\s]+)/ -> 1
  10.         WE  =~ /(?^:[\sLEW])/ -> 1
  11.         ILC =~ /(?^:[DECLINE]{3})/ -> 1
  12.         LEL =~ /(?^:[LEL\s])/ -> 1
  13.         LCI =~ /(?^:[LICK]{2}[IT])/ -> 1
  14.         WTN =~ /(?^:[\sTERN]+)/ -> 1
  15.         IIT =~ /(?^:[WIN]{2}[BUT])/ -> 1
  16.         NOO =~ /(?^:(I|O)+M?)/ -> 1
  17.         NN =~ /(?^:N+P?)/ -> 1
  18.  
  19.  
  20. WHO WILLWIN =~ /(?^:W{0,5}(HO\s|ER)W{0,3}[IF][LOL]+W(IT|I)N?)/ -> 1
  21. THE ELECTION =~ /(?^:(WI|TH)[EL\sE]{2}(ECT|EL)+I[L-P]*)/ -> 1
  22. DONALD TRUMP =~ /(?^:(SE|D|C\.|ON)+(\sC|ALD)(L|\sTR|IN)+G?(UMP|TO)+L?N?)/ -> 1
  23.   cols: WTD =~ /(?^:[WHAT}{2}[DOES])/ -> 1
  24.         HHO =~ /(?^:[HOME]+)/ -> 1
  25.         OEN =~ /(?^:[CANOE]+)/ -> 1
  26.           A =~ /(?^:[.AS\s]+)/ -> 1
  27.         WEL =~ /(?^:[\sLEW])/ -> 1
  28.         ILD =~ /(?^:[DECLINE]{3})/ -> 1
  29.         LE  =~ /(?^:[LEL\s])/ -> 1
  30.         LCT =~ /(?^:[LICK]{2}[IT])/ -> 1
  31.         WTR =~ /(?^:[\sTERN]+)/ -> 1
  32.         IIU =~ /(?^:[WIN]{2}[BUT])/ -> 1
  33.         NOM =~ /(?^:(I|O)+M?)/ -> 1
  34.         NP =~ /(?^:N+P?)/ -> 1
RAW Paste Data