Perl Helps

////Write a simple programme in perl # ! usr/bin/perl print "HELLO WORLD \n"; ///////PRINT SOME VALUE/////// #!usr/bin/perl print "\bHELLO WORLD !\x","sharjeel\n","27\n-87\n"; #Print String print "\nMY NAME IS SHARJELL\n"; print '\nMY NAME IS SHAGHIL\n'; #Print & Use Operator print "Find Module is::-->",14%3,"\n"; print "21 from 52 is::-->",52-21,"\n"; print "51 and with 85 is::-->",51&85,"\n"; print "6 or with 26 is::-->",6|26,"\n"; print "not of 5 is::-->",~5,"\n"; print "6 exclusive or with 26 is::-->",6^26,"\n"; #Truth&FalseHood #Comparing Number For Equality print "\nIs two Equaal to four-->",2==4,"\n"; print "\nIs six Equaal to six:-->",6==6,"\n"; print "\n2 is not Equaal to 4:-->",2!=4,"\n"; print "\nCompare 6 and 9:-->",6<=>9,"\n"; print "\nTest ONE::->",6>3 && 3<9,"\n"; #Concat String print "\nString Concat Is::-->","print"."My"."Name"."Here"."4*7"."+","\n"; #FindCharactersValue print "\nA # Has Ascii value:-->",ord("#"),"\n"; #StringComparison print "\nIs Compare:-->","chicken"cmp"chicken","\n"; print "\nIs Greater Then:-->","cats"gt"egg","\n"; ///////////////////IF ELSE STATEMENT///////////////////// #!usr/bin/perl print "Eneter some value \n"; $a=<STDIN>; #USE IF Statement if($a==2){ print "You Enter::-->TWO\n"; } #Use If Else Statement if($a == 4) { print "Value is 4 \n"; } else($a==5) { print "Value is 5 \n"; } #USE If Els Statement if($a == 4) { print "Value is 4 \n"; } elsif($a==5) { print "Value is 5 \n"; } elsif($a==6) { print "Value is 6 \n"; } elsif($a==7) { print "Value is 7 \n"; } elsif($a==8) { print "Value is 8 \n"; } elsif($a==9) { print "Value is 9 \n"; } ////////////////ARRAY///////////////////// #!usr/bin/perl @record=qw(sun day,mon,tue,wed,thur,sat,fri); print "@record \n"; #Print A Specific Element @rec=(jan,feb,mar,april); print $rec[2],"\n"; #Accessing Multiple Element print @rec[0 .. 2],"\n"; my $value=@record; #Sort An Array my @new=sort @rec; print "AFter Sorting-->@new\n"; print "VALUE IS:-->$value \n"; #Adding An Array my @record1; @record1=(1,2,3,@record,4); print "@record1 \n"; #Accessing An Aray $a=$record1[3]; $b=(@record1)[4]; print "A IS::-->$a && B Is :->$b\n"; ///////////////FOR LOOP/////////////////////////// #!usr/bin/perl @record=(2,4,5,567,7,89,3); my $a,$b; $b=@record; print "B IS $b \n"; for $a(@record){ print "This Element $a \n"; } foreach(@record){ $_++; } print "Now Array IS:-->@record \n"; for($a=0;$a<=10;$a++){ print "VLUE IS \n",$a,"\n"; } #USING Command Line Argument foreach (@ARGV){ print "ARGV IS ::->$_ \n"; } /////////////////WHILE LOOP////////////////////// #!usr/bin/perl my $a=0; while($a<=6){ print "Sharjeel Bilali \n";$a++; $a++; } #Infinite While Loop #!usr/bin/perl while(1){ print "Sharjeel Bilali \n";$a++; $a++; } ////////////////HASH//////////////// #!usr/bin/perl my %where=( Sharjeel =>"Seohara", Gopesh =>"Haldwani", Rupak =>"Sambhal", Uzair =>"RamNagar" ); for(keys %where) { print "$_ Lives In$where{$_}\n"; } /////////LABEL/////////// #!usr/bin/perl print "HELLO \n"; sos: print "IN SOS LABLE \n"; goto sos; /////////////////FILE HANDLING////////////// #!usr/bin/perl #Creating A File & Write Data open FP,">/testing.txt" or die "CanNot Open File"; #Creating A File & Write Data At AppEnd mode open FP,">>/testing.txt" or die "CanNot Open File"; #Put Data In File(String) my $data="WRITING PERL SCRIPT_1"; my $now="WRITING PERL SCRIPT_2"; print FP "$data"; print FP "\n"; print FP "$now"; print FP "\n"; close (FP); #Read Data In File(Character) open FP,"</testing.txt" or die "CanNot Open File"; my @record=<FP>; print "@record \n"; close (FP); /////////////Find System Date & Time////////// #!usr/bin/perl my @timeData=localtime(time); print "Current System TIME & Date IS --->@timeData \n"; #Find Date As Per Your Recquirement @SDate=@timeData[5].@timeData[4].@timeData[3]; print @SDate;