Welcome to Shinjan’s Site

use Cwd;
my @files;
opendir (DIR, $dirname) or die $!;
my @dir = readdir DIR;

foreach my $item1 (@dir){
    if ($item1 ne “..” || $item1 ne “.”){
        push @files ,$item1;
    }
}
closedir DIR;

Validate if the string passed in a valid email or not

returns true or false 

var emailfilter=/^\w+[\+\.\w-]*@([\w-]+\.)*\w+[\w-]*\.([a-z]{2,4}|\d+)$/i

returnval=emailfilter.test(<Email address to be tested >);

in the below code  the 2 can be replaced  with n number and \s is for space and \n for new line charecter 

$string  =~ s/(\s)/(++$count%2==0)?”\n”:$1/ige;

#!/usr/local/bin/perl

my $file_name = “/apps/intranet/ns-home/Apache_Server/Public/TechCouncil/TIITC/2006/data/a0756159_1148893709_Karnataka%20Map.pdf”;

open(FILE, “< $file_name”) or die (“$!”);

while (<FILE>) {

            $File .= $_;

}

close FILE;

print “Content-Type: application/pdf”, “\n”;

print “Content-Disposition: Attachment; filename=Abc.pdf”, “\n\n”;

print $File;