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 exactly equivalent to Foo::sub(‘Foo’, @args), and thus takes care of passing the correct class name … Read more

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 array splice removes three elements from @F starting with position 2 (numbering starts at 0) … Read more

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 concatenation (.) or string at x1.pl line 5. .168.1.1 .168.1.1 $ Working $ cat x2.pl … Read more

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 { $b <=> $a } keys %coord_colors; print $string; output GATGCAGTTAredGGCGTAGCAGAGTGAGACGACGACGATATTAGGACCCGorangeGTAAGGCACAATpurpleATAGC using regex, $string =~ … Read more