paste.org.ru

paste.org.ru	Wed Nov 5 23:24:44 2014 : Anonymous : perl : 670	wide : parent	[ 11 years ]
cookies: name: scheme: custom css: tools: custom css sample paste bash script more coming soon or not soon... last: - Anonymous - Anonymous - Anonymous - Anonymous - Anonymous - Anonymous - Anonymous - Anonymous - Anonymous - Anonymous - Anonymous - Anonymous - Anonymous - Anonymous - Anonymous - Anonymous - Anonymous - Anonymous - Anonymous - Anonymous - Anonymous - Anonymous - Anonymous - Anonymous - Anonymous - Anonymous - Anonymous - Anonymous - Anonymous - Anonymous - Anonymous - Anonymous - Anonymous - Anonymous - Anonymous - Anonymous - Anonymous - Anonymous - Anonymous - Anonymous - Anonymous - Anonymous - Anonymous - Anonymous - Anonymous - Anonymous - Anonymous - Anonymous - Anonymous - Anonymous - Anonymous	#!/usr/bin/perl -w use strict; use LWP::Simple; use Text::Wrap qw($columns &wrap); # С помощью этого параметра указывается макс длина строки $columns=30; #Забираем цитату с сервака my $URL="http://bash.org.ru/forweb/?u"; my $content = get($URL); #обрабатываем, оставляем только текст $content=~/\<\'\s\+\s\'br\>(.)\<\'\s\+\s\'br\>/; $content=$1; $content=~s/\<\'\s\+\s\'br\>/\n/g; $content=~s/\<\'\s\+\s\'br\s+\/\>/\n/g; $content=~s/\&lt//g; $content=~s/\&gt//g; $content=~s/\&quot\;/\"/g; print wrap("", "", $content); #print $content; print "\n"; #the end ro #!/usr/bin/perl -w use strict; use LWP::Simple; use Text::Wrap qw($columns &wrap); # С помощью этого параметра указывается макс длина строки $columns=30; #Забираем цитату с сервака my $URL="http://bash.org.ru/forweb/?u"; my $content = get($URL); #обрабатываем, оставляем только текст $content=~/\<\'\s\+\s\'br\>(.)\<\'\s\+\s\'br\>/; $content=$1; $content=~s/\<\'\s\+\s\'br\>/\n/g; $content=~s/\<\'\s\+\s\'br\s+\/\>/\n/g; $content=~s/\&lt//g; $content=~s/\&gt//g; $content=~s/\&quot\;/\"/g; print wrap("", "", $content); #print $content; print "\n"; #the end

Wed Nov 5 23:24:44 2014 : Anonymous : perl : 670

wide : parent

[ 11 years ]

cookies:

tools:
custom css sample
paste bash script
more coming soon
or not soon...

last:

#!/usr/bin/perl -w
use strict;
use LWP::Simple;
use Text::Wrap qw($columns &wrap);
# С помощью этого параметра указывается макс длина строки
$columns=30;
#Забираем цитату с сервака
my $URL="http://bash.org.ru/forweb/?u";
my $content = get($URL);
#обрабатываем, оставляем только текст
$content=~/\<\'\s\+\s\'br\>(.*)\<\'\s\+\s\'br\>/;
$content=$1;
$content=~s/\<\'\s\+\s\'br\>/\n/g;
$content=~s/\<\'\s\+\s\'br\s+\/\>/\n/g;
$content=~s/\&lt//g;
$content=~s/\&gt//g;
$content=~s/\&quot\;/\"/g;
print wrap("", "", $content);
#print $content;
print "\n";
#the end