Tag perl

Ok. The object constructor syntax you are using is a bit akward, I’d prefer my $obj = Stats->new(13,4,56,43,33); In Perl, new is not an ordinary keyword, but a simple sub, and should be used as such. The Foo->sub(@args) syntax is…

perl -lane ‘splice @F, 2, 3; print “@F”‘ -l removes newlines from input and adds them to output -n reads the input line by line, running the code for each line -a splits each line on whitespace into the @F…

Here is semi-working and working code. Semi-working $ cat x1.pl | so #!/usr/bin/env perl use strict; use warnings; my $a = “$192.168.1.1”; print “$a\n”; $a =~ s/\$//; print “$a\n”; $ perl x1.pl | so Use of uninitialized value $192 in…

You can use substr() as an lvalue and start replacing the string from right side of it, my $string = ‘GATGCAGTTAGGCGTAGCAGAGTGAGACGACGACGATATTAGGACCCGGTAAGGCACAATATAGC’; my %coord_colors = ( 10 => “red”, 48 => “orange”, 60 => “purple”, ); substr($string,$_,0) = $coord_colors{$_} for sort…

You should really learn Perl – it is really fun when you learn it yourself. It is really that simple: my %rev; foreach my $key (keys %hash) { $rev{$hash{$key}} = $key; } 3 solved how to reverse a hash in…