/prog/ - ITT We write a perl program

Name: Larry Wall 2010-05-08 14:57

#!/usr/bin/perl

Name: Anonymous 2010-05-08 15:00

# @author /prog/ (May 2010)
# @url http://dis.4chan.org/prog/

Name: Anonymous 2010-05-08 15:07

__END__

Name: Anonymous 2010-05-08 15:20

>>1-3
We're done already?

Name: Anonymous 2010-05-08 15:21

die(join("in a fire", @all_of_you));

Name: Anonymous 2010-05-08 15:27

%^%$£989=tu*Y*($Y!"(*TY"8r 3r"£TI"TI"j$£Q^£$^%£YsadGf\/.cvv\+$20

Name: Anonymous 2010-05-08 15:35

>>6
Invalid perl cod. I can tell by the special characters and having seen a lot of fish in my time.

Name: Anonymous 2010-05-08 16:18

$_ = "=]=>%-{<-|}<&|`{/";

tr~ -/:-@[-`{-}~`-{/" -~;

eval $_;

Name: Anonymous 2010-05-08 16:22

　　　　　　　　　　　　　　　|￣｀`''- ､
　　　　　　　　　　　　　　　|　　　　　｀ﾞ''ｰ- ､　　＿＿＿＿＿＿__
　　　　　　　　　　　　　　　|　　　 ,. -‐ ''´￣￣｀ヽ､＿　　　　　　 /
　　　　　　　　　　　　　　　 |, - '´￣　　　　　　　｀ヽ、　　 /
　　　　　　　　　　　　　　／　　　　　　　　　　　　　　　｀ヽ､ヽ　 /
　　　　　　　　　　　　 _/　　　　　　　　　　　　　　　　　　　ヽヽ/
　　　　　　　　　　／ / / 　 /　　/　 /　　　　　　　　　　　　ヽﾊ
　　　　　　　　　く　 / /! 　 | 　〃 _/__　l|　　 | | 　 |　　|　 | | ||ヽ
　　　　　　　　　　＼l//　/ |　 /|'´ ∧　 ||　　 | |ｰ､||　　|　 | l　| ヽ
　　　　　　　　　　　　/ハ/　|　 | ヽ/　ヽ | ヽ　 | ||　/|ヽ/!　 |/　|　ヽ
　　　　　　　　　　　 /　|　　||ヽ { ,r===､　　＼| _!V　|//　//　 .! 　 |
　　　　　　　　　　　 |　|| 　 |l　|ヽ!'´￣｀ﾞ　 ,　　==ミ､ /イ川　　|─┘
　　　　　　　　　　　 | ﾊ||　 ||　|　"""　┌---┐　　｀　 /　//　 |
　　　　　　　　　　　 V　!ヽト! ヽ､　　　 | 　　 !　　　　/　//|　/
　　　　　　　　　　　　　　ヽ! ＼ハ`　､ヽ､__ノ　　 ,.イ/ // | /
　　 ┌/）/）/）/）/）/）/）/）/）/）lｰ/　` ー‐┬ '´ レ//l/　|/
　　　 |（/（/（/（/（/（/（/（/（/（/│||　　　　 |＼　〃
　　r'´￣ヽ.　　　　　　　　　 | | ト　　　 /　　＼
　 /　￣｀ｱ　　　　　　　　　　 | | |　　⌒/　　　　入
　〉　￣二)　　This is　　　　　 | | |　　／　　　／/ ヽ
　〈! 　 ,. -'　　　　　　　　 | | ヽ∠-----',　'´　　 ',
　 | ＼| | 　　　　 valid 　　　　 | |<二Z二￣　／　　　 ',
　 | 　 | |　　　　　　　　　　 _r'---|　　[ ｀`ヽ､　　　　　 ',
　 | 　 | |　　　 Perl　code 　　　>-､__　　　 [　　　ヽ　　　　!
　　＼.| l.　　　　　　　　　　　ヽ､　　　 [　　　　ヽ　　　　|
　　　ヽ|　　　　　　　　　　　　　　＼　　 r'　　　　　ヽ､　　 |

Name: Anonymous 2010-05-08 17:47

>>9
./test.pl: line 1: $'\357\273\277\343\200\200\343\200\200\343\200\200\343\200\20 0\343\200\200\343\200\200\343\200\200\343\200\200\343\200\200\343\200\200\343\20 0\200\343\200\200\343\200\200': command not found : No such file or directory ./test.pl: line 15: -: command not found ./test.pl: line 16: $'\343\200\200\343\200\200\343\200\200\343\200\200\343\200\2 00\343\200\200\343\200\200\343\200\200\343\200\200\343\200\200\343\200\200\343\2 00\200\343\200\200': command not found ./test.pl: line 16: $'\343\200\200\343\200\200\343\200\200\343\200\200\343\200\2 00': command not found ./test.pl: line 17: $'\343\200\200\343\200\200\343\200\200\343\200\200\343\200\2 00\343\200\200\343\200\200\343\200\200\343\200\200\343\200\200\343\200\200\343\2 00\200\343\200\200': command not found ./test.pl: line 17: $'\343\200\200\343\200\200\343\200\200': command not found ./test.pl: command substitution: line 23: syntax error near unexpected token `|' ./test.pl: command substitution: line 23: `　　　　　　　　　　＼l//　/ |　 /|'´ ∧　 ||　　 | | '､||　　|　 | l　| ヽ ./test.pl: line 15: $'\357\277\243\357\275\200\343\200\200\357\275\244': command not found ./test.pl: line 27: syntax error: unexpected end of file

Name: Anonymous 2010-05-08 18:34

>>10
Odd. Did you forget a bracket?

Name: Anonymous 2010-05-08 23:04

>>10
Perhaps if you ran it with perl, not sh.

Name: Anonymous 2010-05-08 23:11

>>12
Welcome to the wonderful world of Perl's backtick syntax.

Name: Anonymous 2010-05-09 0:58

>>12
Unrecognized character \xE3 in column 1 at test.pl line 1.
I tested several encodings, including several variants of UTF. The error seems to be caused by the "FULLWIDTH MACRON" character, the second non-whitespace character in the first line.

ITT We write a perl program

1 Name: Larry Wall 2010-05-08 14:57

2 Name: Anonymous 2010-05-08 15:00

3 Name: Anonymous 2010-05-08 15:07

4 Name: Anonymous 2010-05-08 15:20

5 Name: Anonymous 2010-05-08 15:21

6 Name: Anonymous 2010-05-08 15:27

7 Name: Anonymous 2010-05-08 15:35

8 Name: Anonymous 2010-05-08 16:18

9 Name: Anonymous 2010-05-08 16:22

10 Name: Anonymous 2010-05-08 17:47

11 Name: Anonymous 2010-05-08 18:34

12 Name: Anonymous 2010-05-08 23:04

13 Name: Anonymous 2010-05-08 23:11

14 Name: Anonymous 2010-05-09 0:58