Mercurial > repo
view paste/paste.15286 @ 11296:1d2aa8ef25d7
<wob_jonas> perl -eopen$i,"<",($f="wisdom/aristotle");$_=<$i>; s/two thousand/2000/ or die; if (1) { open$o,">",$f; print$o $_ or die; } print substr$_,0;
author | HackBot |
---|---|
date | Mon, 01 Jan 2018 18:02:36 +0000 |
parents | 929b625a0b97 |
children |
line wrap: on
line source
speed 38400 baud; rows 0; columns 0; line = 0; intr = ^C; quit = ^\; erase = ^?; kill = ^U; eof = ^D; eol = <undef>; eol2 = <undef>; swtch = <undef>; start = ^Q; stop = ^S; susp = ^Z; rprnt = ^R; werase = ^W; lnext = ^V; flush = ^O; min = 1; time = 0; -parenb -parodd cs8 hupcl -cstopb cread -clocal -crtscts -ignbrk -brkint -ignpar -parmrk -inpck -istrip -inlcr -igncr -icrnl -ixon -ixoff -iuclc -ixany -imaxbel -iutf8 -opost -olcuc -ocrnl onlcr -onocr -onlret -ofill -ofdel nl0 cr0 tab0 bs0 vt0 ff0 -isig -icanon -iexten -echo echoe echok -echonl -noflsh -xcase -tostop -echoprt echoctl echoke