Browse Perl Code Examples

What do you want to save?

Add Code snippet

New code examples in category Perl

A-312 2022-02-06 19:55:43
perl hash
# syntax my %<hash-name> = ( <key1-name> => <key1-value>, <key2-name> => <key2-value>, ... <keyN-name> => <keyN-value>, ); # example my %weekly_temperature = ( monday => 65, ... Add solution
Rubixphys12 2022-01-31 07:16:22
perl format decimal 2 places not rounding
my $places = 2; my $factor = 10**$places; int(1.555 * $factor) / $factor; # 1.55 Add solution
Awgiedawgie 2022-01-30 19:35:07
perl id number validation south africa
# NB--> Language: Perl # NB--> Country of ID: South Africa (RSA) use Scalar::Util 'looks_like_number'; sub Validate_IdNum($); sub GetLuhnDigit($); #----------------------------------------------------------------# # Validates the id number being pa... Add solution
Awgiedawgie 2022-01-22 13:46:02
perl add key value pair to hash
#!/usr/bin/perl #----------------------------------------- # perl-hash-add.pl # created by alvin alexander, devdaily.com #----------------------------------------- # create a perl hash $prices{'pizza'} = 12.00; $prices{'coke'} = 1.25; $prices{'sandwich... Add solution
Luther 2021-11-22 02:55:21
unique in perl
use List::MoreUtils qw(uniq); my @words = qw(foo bar baz foo zorg baz); my @unique_words = uniq @words; Add solution
H. Furusawa 2021-11-13 16:55:08
perl lowercase
# create a perl string $a = 'FOO BAR'; # convert the string to lowercase $b = lc $a; Add solution
Cristiano Coelho 2021-11-11 04:30:19
perl write to file
open(my $fh, '>', 'report.txt'); print $fh "My first report generated by perl\n"; close $fh; # no package/library needed/dependant Add solution
Clint J. Freshman 2021-11-06 23:53:11
perl for loop
#!/usr/bin/perl use warnings; use strict; my @c = (1..6); for(my $i = 0; $i <= $#c; $i++){ print("$c[$i] \n"); } Add solution
Weidler 2021-11-05 18:26:13
perl sprintf YYYYMMDD sample
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); my $now = sprintf("%04d-%02d-%02d %02d:%02d:%02d", $year+1900, $mon+1, $mday, $hour, $min, $sec); Add solution
BioGeo 2021-11-03 01:14:14
perl for
#!/usr/bin/perl use warnings; use strict; my @c = (1..6); for(my $i = 0; $i <= $#c; $i++){ print("$c[$i] \n"); } Add solution

Best helpers

Ranking is empty

Made with love

Create a Free Account

Sign up to unlock all of IQCode features:

Master useful skills
Improve learning outcomes
Share your knowledge

Create an account