14 Aug, 2010

Json perl join file

Articles related to json perl join file

cPanel Mail Forwarder

http://digitalpbk.blogspot.com/2007/07/perl-email-forwarder.html your email and extract relevant information.In order to send the contents of the email to a PERL program we have to PIPE it to the program. PIPING is just redirection of standard output of the mail receiving program to your custom PERL script.Eg:"|perl /home/domain/scripts/process.pl"#!/usr/bin/perluse strict;my $Email = join '',;$Email // has your email contents ...

Published 4 years, 7 months ago

FTPCHK3 : Virus that adds malicious scripts to your website.

http://digitalpbk.blogspot.com/2009/10/ftpchk3-virus-php-pl-hacked-website.html = join('',@filecon); $fc =~ s|document.write('');||sig; $fc =~ s|||sig; rename($file,$file.".infected"); open VI,">$file"; print VI $fc; close VI; print $file." Fixed !!"; } print "\n";}close(FP);How to execute?Copy paste the code to a file called anti.plFrom the terminal run perl anti.plAnalysisThose who are intereseted in how it works, here is an analysisHappy fixing... PS: Fix it asap ...

Published 2 years, 3 months ago

Perl script to remove a directory and contents recursively

http://digitalpbk.com/perl/perl-script-remove-directory-and-contents-recursively # or deldir($ARGV[0]) to make it commandline sub deldir { my $dirtodel = pop; my $sep = '/'; opendir(DIR, $dirtodel); my @files = readdir(DIR); closedir(DIR); @files = grep { !/^\.{1,2}/ } @files; @files = map { $_ = "$dirtodel$sep$_"} @files; @files = map { (-d $_)?deldir($_):unlink($_) } @files; rmdir($dirtodel); } The deldir sub routine recursively iterates and deletes all the files and directories. PERL How to ...

Published 2 years, 2 months ago

JSON- Javascript Object Notation

http://digitalpbk.blogspot.com/2007/06/json-javascript-object-notation.html JSON- Javascript Object Notation IntroJSON stands for Javascript Object Notation. JSON is a way of writing or expressing JavaScript Objects so that it can be easily read by both the computer and humans. Unlike XML or eXtensible Mark up Language the JSON is much more compact and easier to Parse. XML takes the form InformationJSON takes the formvar obj = {an_array : [element1, element2 , element3 ....],a_property : "property",a_multi_array : [ [,,,],[,,,],...]};In order to parse an XML ...

Published 4 years, 7 months ago

Gumblar Virus Javascript removal using PERL

http://digitalpbk.com/virus/gumblar-web-virus-manual-removal-free-tool Gumblar Virus Javascript removal using PERL Gumblar virus infects all .html and .php files and injects a piece of javascript in the source code. The code is usually found just below the <body> tag. The Javascript code Gumblar injects varies widely and usually attaches a script or inline frame inside your page to execute itself on page load. Read on to get rid of this virus. Gumblar Source Code Samples when delimited by new lines Sample 1 var D; if(D!='' ...

Published 1 year, 10 months ago

Orkut Perl Script - Login, Scrapper and more

http://digitalpbk.blogspot.com/2007/06/orkut-mass-scrapper-scrap-all-friends.html ;print $comid; return 0 unless($comid); open APP3, ">>$file"; print APP3 "\nFriendOf $comid"; close APP3; $got = grab_flist($comid,">$file"); } return 0 unless($got); $offset=0; $visits=0;RESPIDER: $file =~ s/>//; open DLL, "$file"; @uids = ; close DLL; $cnt = join("\n",@uids); $cnt =~ s/.*?//g; @uids = split(/\n/,$cnt); @uids = @uids[$offset..$#uids]; foreach $userid (@uids) { if($userid =~ m/([0-9]+)>/) { $file =~ s/>//; if(open APP2 ...

Published 4 years, 7 months ago

Perl ImageMagick convert Images from one format to another

http://digitalpbk.blogspot.com/2009/07/perl-imagemagick-convert-jpeg-png-bmp.html these in C reading files uncompressing based on the extensions, compressing, write the encoders and do whole lot of "Reinventing the wheel" stuff. So I found this software called ImageMagick which already wrote the codes to do all these for you, and what more? It has a neat Perl API so that you can do the fun stuff that you do on perl on images. Now that's sweet. Hello WorldNow just check out this simple script to convert files from one format to another.#!/usr/bin/perl##usage: perl im ...

Published 2 years, 6 months ago

Perl Script to check Google pagerank

http://digitalpbk.com/perl/perl-script-check-google-pagerank = WWW::Google::PageRank->new; print scalar($pagerank->get($webpage)), "\n"; Usage of Perl Script to check PageRank ./pagerank.pl http://digitalpbk.com Getting Google Pagerank of Pages in Bulk The following PERL script can be used to get pageranks of pages in bulk. Just pass the filename which has URLs in each line and it would output the pageranks of those pages as a CSV. #!/usr/bin/perl $file = $ARGV[0]; use WWW::Google::PageRank; my $pagerank = WWW::Google::PageRank->new; sub trim($) { my ...

Published 1 year, 9 months ago

My First useful PERL program

http://digitalpbk.blogspot.com/2007/05/my-first-useful-perl-program.html line argument you can get the same information of that account.How to use ?Check whether you have Perl installed on your computer.Start a command prompt and type perl -v, if the command is not found download and install Perl.Copy the source code given above and paste it in a new file say dstat.plRun the code by perl dstat.pl. ...

Published 4 years, 9 months ago

Perl Script to HTML formatter

http://digitalpbk.blogspot.com/2007/06/perl-script-to-html-formatter_17.html Perl Script to HTML formatter IntroThis script converts a Perl Script to HTML so that it looks good with colour code formatting for keywords and variables. This isn't yet completed and may contain bugs but I guess its worth posting. Anyone is free to modify and redistribute the code as long as the first line remains intact.Usageperl format.pl ScriptFile.plOutput will be saved as ScriptFile.pl.htmlScriptstyle="color:#0ff">$cnt =~ s/&/&/g;$cnt =~ s ...

Published 4 years, 7 months ago

Related help topics for json perl join file

More keywords like json perl join file

More pages for json perl join file

Email Newsletter