Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

add Sagrada Família JAPH

  • Loading branch information...
commit eb99a3ab7eb8e535c512f8b0af765337013fa6ec 1 parent 279a17d
Alex Muntada authored
Showing with 96 additions and 0 deletions.
  1. +31 −0 share/sf_japh/generate.pl
  2. +65 −0 share/sf_japh/sf_japh.pl
31 share/sf_japh/generate.pl
View
@@ -0,0 +1,31 @@
+use strict;
+use warnings;
+
+use WWW::Mechanize;
+use Acme::EyeDrops qw(sightly);
+
+my $size = shift;
+
+my $mech = WWW::Mechanize->new;
+$mech->get("http://www.degraeve.com/gif2txt.php");
+$mech->submit_form(
+ fields => {
+ url => "http://www.hashref.com/texto.png",
+ mode => "A",
+ size => $size,
+ }
+);
+
+my ($shape) = $mech->content =~ m:<pre>\n(.*?)\s+</span>:s;
+$shape =~ s/ +$//mg;
+$shape =~ s/\S/#/g;
+
+print sightly {ShapeString => $shape, Compact => 1, SourceString => <<'JAPH'};
+$_=q;Barcelona Perl Mongers;,$/=y,gaudi,,,;map$,+=(split//)*(-1)**$|++
+,(split)[.11_09,1.714];$.=''!~m~erce~;$"=y,catalunya,,,$;=y,rambles,,,
+$*=$/^$.;$:=$.+length,$@=$***$**$/**$*%$:,$%=$/*$"-$*;print+chr($_<0xA
+?$.."$[$_":m:^$.:?$..$_:$_)for($**$**$/*$",$"*$@+$**$/,$**$,,$***$,,$/
+*$,,$;,$***$/,$,*$/,$.<<$,,$%-$*,$"+$/,$***$,,(($,*$*)**$*)-$/,$***$/,
+$@+$/,$:-($/**$*),$.,$:+$"+$*,$.<<$*,$,**$/-$:-$,,exp$:/$,,$",$.,$"*$*
+,$***$,,log$.,$.,-$/+$"*$,,$/+$"*$;,$.,++$@,$***($/&=$/+Barcelona_pm))
+JAPH
65 share/sf_japh/sf_japh.pl
View
@@ -0,0 +1,65 @@
+eval eval '"'.
+
+
+ '\\'
+ .('$_=').(
+ '['^'*').';'
+ .('`'^ '"').('`'|
+ '!').(('[')^ ')').(('`')|
+ '#').(('`')| '%') .''.
+ ('`'|"\,").( ('`')|
+ '/') .('`'|
+ '.') .('`'|
+ '!') .''.
+ ('{' ^'[').
+ ("\{"^ '+').(
+ (( '`')
+ )|'%').( '['^')') .''.
+ ('`'|',' ).("\{"^ '[').('`'^
+ ('-')).( '`'|'/') .('`'|'.').(
+ (( '`') )|"'").( '`'|'%').('['^
+ ')').( '['^'(') .';,\\$' .'/='.("\["^
+ '"').','.( ('`')| ("'")).( ('`')|
+ '!').(('[')^ ('.')).( '`'|'$') .''.
+ ("\`"| (( ')'))) .',,,;'. ("\`"|
+ ('-')).( '`'|'!') .(('[')^ "\+").
+ '\\' .'$,+=(' .(('[')^ '(').(
+ '['^ ('+')).( '`'|',') .(('`')|
+ ')').( '['^'/') .'//)*(' .'-'.('^'^
+ ("\`"| ('/'))). ')**\\$|++'. ('!'^'+'
+ ).',(' .(('[')^ '(').(('[')^ ('+')).(
+ '`'|',') .('`'|')') .''. ("\["^ '/').')[.'
+ .("\^"^( '`'|'/')). ('^'^('`'| '/')). ((
+ '_')). ('^'^('`'| '.')).("\;"& '=').','
+ .('^'^ ('`'|'/')) .'.'.("\^"^( '`'|')')
+ ).('^'^('`'| '/')).('^'^( '`'|('*'))). '];\\$.'
+ ."\=". "'"."'".'!~' .('`'|'-').'~' .(('`')|
+ '%').( ('[')^ (( ')'))).(('`')| '#').('`'|
+ '%').'~' .';\\$\\"='. ('['^'"').','. ('`'|'#').
+ ('`'|'!' ).('['^'/'). ('`'|'!').('`' |',').('['
+ ^"\.").( '`'|'.').('['^ '"').('`'|"\!"). ',,,\\$'
+ .';='.+( '['^'"').','.( '['^')').(('`')| ('!')).(
+ '`'|'-') .('`'|('"')).( '`'|',').(('`')| '%') .''.
+ ('['^'('). ',,,'.('!'^'+'). '\\$*=\\$/^\\$.' .';\\$:=\\$'
+ .'.+'.('`' |',').('`'|'%' ).('`'|'.').('`' |"'").("\["^
+ '/').(('`')| '(').',\\$\\@' .'=\\$***\\$**'. '\\$/**\\$*'
+ .'%\\$:,\\$' .'%=\\$/*\\$\\"' .'-\\$*;'.('['^'+' ).('['^')').
+ ('`'|"\)").( '`'|'.').('['^ '/').'+'.('`'|'#') .( '`'|'(')
+ .('['^"\)"). '(\\$_<'.('^'^ ('`' |('.'))).( (( '[')
+ )^'#').('`'^ '!').('!'^"\+"). '?\\$..\\"\\$[\\$' .('_\\":').(
+ '`'|'-').':^'. '\\$.:?\\$..\\$_:' .'\\$_)'.('`'|'&') .('`'|('/')).(
+ '['^')').'(' .'\\$**\\$**\\$/*' .'\\$\\",\\$\\"*'. '\\$\\@+\\$**'
+ .'\\$/,\\$*' .'*\\$,,\\$***\\$' .',,\\$/'.('!'^'+' ).'*\\$,,\\$;,'.
+ '\\$***\\$/,\\$' .',*\\$/,\\$.<<\\' .'$,,\\$%-\\$*,\\' .'$' .''.
+ '\\"+\\$/,\\$**' .'*\\$,,((\\$,*\\' .'$*)**\\$*)-\\$/' .',\\$***\\$/,'.
+ ('!'^'+').'\\$'. '\\@+\\$/,\\$:-('. '\\$/**\\$*),\\$.' .',\\$:+\\$\\"+'
+ .'\\$*,\\$.<<\\' .'$*,\\$,**\\$/-'. '\\$:-\\$,,'.('`'|'%') .('['^'#').('['^
+ '+').'\\$:/\\$,' .',\\$\\",\\$.,\\$'. '\\"*\\$*'.('!'^"\+"). (( ',')).'\\$***'
+ .'\\$,,'.(('`')| ',').('`'|'/').('`'| "'").'\\$.,\\$.,-\\$/' .'+\\$\\"*\\$,,\\'
+ .'$/+\\$\\"*\\$;,' .'\\$.,++\\$\\@,\\$**' .'*(\\$' .'/&=\\$/+'. ("\`"^ '"').(
+ '`'|'!').('['^')') .('`'|'#').('`'|'%').( '`'|',').('`'|('/')).( '`'|'.').('`'|'!')
+ .'_'.('['^('+')).( '`'|'-').'))'.('!'^'+' ).'"';$:='.'^('~');$~= '@'|'(';$^=')'^'['
+ ;$/='`'|'.';$,='(' ^"\}"; $\='`'|'!';$:= ')'^'}';$~='*'|'`';$^= ('+')^ "\_";$/=
+ (( '&'))|"\@";$,= '['&'~';$\=','^'|';$:= '.'^'~';$~='@'|'(';$^=')'^'[';$/='`'|'.';$,='('^
+ '}';$\='`'|'!';$:=')'^'}';$~='*'|('`');$^= '+'^'_';$/='&'|'@';$,='['&'~';$\=',' ^"\|";
+ $:="\."^ '~'; $~="\@"| '(';$^ =( "\)")^ "\[";$/= ('`')| '.'; #;#;
Please sign in to comment.
Something went wrong with that request. Please try again.