avkhozov


Thu Oct 20 12:43:51 2016
lua

/usr/bin/lua5.3: ./code:1: syntax error near 'test2'

print test2
Sat Mar 26 12:48:49 2016
perl

HOME/PATH/usr/local/sbin:/usr/local/bin:/usr/sbin:/usr/bin:/sbin:/binLC_ALLen_US.UTF-8LANGen_US.UTF-8HOSTNAMEb99561fd3b4bTMPDIR/dev/shmLANGUAGEen_US:en at ./code line 1.

die %ENV
Tue Jan 20 14:51:53 2015
perl

|----------------------+------------+---------+---------+-------------+----------+---------------------+--------------+------------------------------------------|
|  text                | date       | integer | boolean | float       | time     | datetime            | empty_column | _unnamed                                 |
|----------------------+------------+---------+---------+-------------+----------+---------------------+--------------+------------------------------------------|
|  Chicago Tribune     | 1920-01-01 | 164     | False   | 41800000.01 | 00:00:00 | 1920-01-01T00:00:00 |              |                                          |
|  Chicago Sun-Times   | 1948-01-01 | 63      | True    | 1.27        | 14:57:13 | 1948-01-01T14:57:13 |              | Extra data past headers will be trimmed  |
|  Chicago Reader      | 1971-01-01 | 40      | True    | 1.0         | 04:14:00 | 1971-01-01T04:14:00 |              |                                          |
|  This row has blanks |            |         |         |             |          |                     |              |                                          |
|  Unicode!             |
|-----------------------|
instead of
|----------------------+------------+---------+---------+-------------+----------+---------------------+--------------+------------------------------------------|
|  text                | date       | integer | boolean | float       | time     | datetime            | empty_column | _unnamed                                 |
|----------------------+------------+---------+---------+-------------+----------+---------------------+--------------+------------------------------------------|
|  Chicago Tribune     | 1920-01-01 | 164     | False   | 41800000.01 | 00:00:00 | 1920-01-01T00:00:00 |              |                                          |
|  Chicago Sun-Times   | 1948-01-01 | 63      | True    | 1.27        | 14:57:13 | 1948-01-01T14:57:13 |              | Extra data past headers will be trimmed  |
|  Chicago Reader      | 1971-01-01 | 40      | True    | 1.0         | 04:14:00 | 1971-01-01T04:14:00 |              |                                          |
|  This row has blanks |            |         |         |             |          |                     |              |                                          |
|  Unicode!            |            |         |         |             |          |                     |              |                                          |
|----------------------+------------+---------+---------+-------------+----------+---------------------+--------------+------------------------------------------|
binmode STDIN,':utf8'; binmode STDOUT,':utf8';
$j=0,@{$a[$i++]}=map{s/^"|\n$//g;s/""/"/g;$m[$j-1]=$l if($l=length)>$m[$j++];$_}split/"?,/,$_ while<>;($t,$s,$g)=$y&&$y!=2&&$y<@a+2?(' ','','|'):qw/- - +/,$k=0,print("|$t".(join$g,map{($S=$s x$m[$k])||=$_;sprintf"$t%-$m[$k++]s$t",$S}@$_)."$t|\n"),++$y>@a+2?last:($s||$y==@a+2)&&redo for@a

Tue Jan 13 22:57:45 2015
perl

|----------------------------------------+--------------------------------------+-----------------------------------+-----------------|
|  title | filename | url | retrieval_date  |
|----------------------------------------+--------------------------------------+-----------------------------------+-----------------|
|  Event Reports for Operating Reactors | event-notification-rpt-lastmonth.txt | http://www.data.gov/download/4028 | 2011-04-17  |
|  FY 09 Education Recipients by State. | FY09_EDU_Recipients_by_State.csv | http://www.data.gov/raw/4029 | 2011-04-17  |
|  FY "10" Education Recipients by State | Datagov_FY10_EDU_recp_by_State.csv | http://www.data.gov/raw/4509 | 2011-04-17  |
|----------------------------------------+--------------------------------------+-----------------------------------+-----------------|
instead of
|----------------------------------------+--------------------------------------+-----------------------------------+-----------------|
|  title                                 | filename                             | url                               | retrieval_date  |
|----------------------------------------+--------------------------------------+-----------------------------------+-----------------|
|  Event Reports for Operating Reactors  | event-notification-rpt-lastmonth.txt | http://www.data.gov/download/4028 | 2011-04-17      |
|  FY 09 Education Recipients by State.  | FY09_EDU_Recipients_by_State.csv     | http://www.data.gov/raw/4029      | 2011-04-17      |
|  FY "10" Education Recipients by State | Datagov_FY10_EDU_recp_by_State.csv   | http://www.data.gov/raw/4509      | 2011-04-17      |
|----------------------------------------+--------------------------------------+-----------------------------------+-----------------|
while(<>){s/[\r\n]//g;s/,(?=,)/, /g;s/(?<!")"(?!")//g;s/""/"/g;my @F=split(",",$_);$#F=$#m if$#F<$#m;push@H,\@F;@c=map{length}@F;for($i=0;$i<=$#c;$i++){$m[$i]=$c[$i]if$m[$i]<$c[$i]}}sub p{print '|-'.join ('+',(map{"-"x($_+2)} @m))."-|\n"}p;for$f(@H){$j=-1;p if$d++==1;@a=map{$j++;sprintf"%-$m[$j]s",utf8::decode($_);$_}@$f;print"|  ".join(" | ",@a)."  |\n"}p;
Tue Jan 13 22:51:27 2015
perl

|----------------------------------------+--------------------------------------+-----------------------------------+-----------------|
|  title | filename | url | retrieval_date  |
|----------------------------------------+--------------------------------------+-----------------------------------+-----------------|
|  Event Reports for Operating Reactors | event-notification-rpt-lastmonth.txt | http://www.data.gov/download/4028 | 2011-04-17  |
|  FY 09 Education Recipients by State. | FY09_EDU_Recipients_by_State.csv | http://www.data.gov/raw/4029 | 2011-04-17  |
|  FY "10" Education Recipients by State | Datagov_FY10_EDU_recp_by_State.csv | http://www.data.gov/raw/4509 | 2011-04-17  |
|----------------------------------------+--------------------------------------+-----------------------------------+-----------------|
instead of
|----------------------------------------+--------------------------------------+-----------------------------------+-----------------|
|  title                                 | filename                             | url                               | retrieval_date  |
|----------------------------------------+--------------------------------------+-----------------------------------+-----------------|
|  Event Reports for Operating Reactors  | event-notification-rpt-lastmonth.txt | http://www.data.gov/download/4028 | 2011-04-17      |
|  FY 09 Education Recipients by State.  | FY09_EDU_Recipients_by_State.csv     | http://www.data.gov/raw/4029      | 2011-04-17      |
|  FY "10" Education Recipients by State | Datagov_FY10_EDU_recp_by_State.csv   | http://www.data.gov/raw/4509      | 2011-04-17      |
|----------------------------------------+--------------------------------------+-----------------------------------+-----------------|
while(<>){s/[\r\n]//g;s/,(?=,)/, /g;s/(?<!")"(?!")//g;s/""/"/g;my @F=split(",",$_);$#F=$#m if$#F<$#m;push@H,\@F;@c=map{length}@F;for($i=0;$i<=$#c;$i++){$m[$i]=$c[$i]if$m[$i]<$c[$i]}}sub p{print '|-'.join ('+',(map{"-"x($_+2)} @m))."-|\n"}p;for$f(@H){$j=-1;p if$d++==1;@a=map{$j++;sprintf"%-$m[$j]s",utf8::decode($_);$_}@$f;print"|  ".join(" | ",@a)."  |\n"}p;
Tue Jan 13 22:50:29 2015
perl

|----+---+----|
|  1 | 1 | 1  |
|----+---+----|
|  1 | 1 | 1  |
|----+---+----|
instead of
|----+---+----|
|  a | b | c  |
|----+---+----|
|  1 | 2 | 3  |
|----+---+----|
while(<>){s/[\r\n]//g;s/,(?=,)/, /g;s/(?<!")"(?!")//g;s/""/"/g;my @F=split(",",$_);$#F=$#m if$#F<$#m;push@H,\@F;@c=map{length}@F;for($i=0;$i<=$#c;$i++){$m[$i]=$c[$i]if$m[$i]<$c[$i]}}sub p{print '|-'.join ('+',(map{"-"x($_+2)} @m))."-|\n"}p;for$f(@H){$j=-1;p if$d++==1;@a=map{$j++;sprintf"%-$m[$j]s",utf8::decode($_)}@$f;print"|  ".join(" | ",@a)."  |\n"}p;
Tue Jan 6 11:45:34 2015
perl
$n=<>;@t=([1]);for(2..$n){@x=@{$t[$#t]};@a=(0,@x);@b=(@x,0);$x=[];for($i=0;$i!=@a;++$i){push@$x,$a[$i]+$b[$i]}push@t,$x}$h{$q++}=length for@{$t[$#t]};for(@t){$w=0;$r='';$r.=sprintf"%$h{$w++}s ",$_ for@$_;chop$r;print"$r\n"}
Wed Dec 31 14:53:35 2014
perl
$n=<>;@t=([1]);for(2..$n){@a=(0,@{$t[$#t]});@b=(@{$t[$#t]},0);$x=[];for($i=0;$i!=@a;++$i){push@$x,$a[$i]+$b[$i]}push@t,$x}$h{$q++}=length for@{$t[$#t]};for(@t){$w=0;$r='';$r.=sprintf"%$h{$w++}s ",$_ for@$_;chop$r;print"$r\n"}
Mon Aug 25 11:55:00 2014
Tac
perl


              
instead of
zxcv
asdf
qwer
x
Fri Aug 8 21:44:14 2014
perl
#!/usr/bin/perl -aln
$F[1]?push@s,$F[1]:print pop@s
Wed Aug 6 10:28:53 2014
perl
#!/usr/bin/perl -p
s/(.)/$a=ord$1<91?65:97;chr((19-$a+ord$1)%26+$a)/ge
Mon Aug 4 00:17:24 2014
php
test2
Sat Aug 2 23:00:14 2014
perl
#!/usr/bin/perl -n
$d='([^- |+])-*';/^ *$d-\+/;$i||=$1;$p=/^ *$d\+ *\|| *\| *$d\+$/?$1?$1:$2:/ *$d\|-*\+| *\| *$d\|-*\+/?$i:/^ *\+-*\+/?'None':'';if($p){print$p;exit}

Sat Aug 2 22:58:51 2014
perl
#!/usr/bin/perl -n
$d='([^- |+])-*';/^ *$d-\+/;$i=$i?$i:$1;$p=/^ *$d\+ *\|| *\| *$d\+$/?$1?$1:$2:/ *$d\|-*\+| *\| *$d\|-*\+/?$i:/^ *\+-*\+/?'None':'';if($p){print$p;exit}
Wed Jul 30 18:59:16 2014
perl
#!/usr/bin/perl -l
($n,$c)=<>;print$c x$_ for 1..$n
Wed Jul 30 18:58:21 2014
perl
($n,$c)=<>;print$c x$_.'
'for 1..$n
Wed Jul 30 18:55:46 2014
perl
($n,$c)=<>;print$c x$_."\n" for 1..$n
Wed Jul 30 18:18:22 2014
perl
($n,$c)=<>;for(1..$n){print$c x$_."\n"}
Tue Jul 29 19:35:52 2014
MD5
perl


              
instead of
012356789
abde
1
Tue Jun 24 10:44:25 2014
perl
#!/usr/bin/perl -p
s/(.)(\1+)/$1.(1+length$2)/ge