Code:
perldoc -f split
toolic
Last Activity: Nov 6 '18, 04:05 PM
Joined: Sep 18 '09
Location:
-
If your data itself does not contain commas, use split to grab the 2nd/4th columns:
Otherwise, search CPAN for an appropriate CSV/xSV module. -
Use square brackets to create a reference:
In Perl, 2D arrays are known as Arrays-of-Arrays.Code:$array1[$obj] = [($varible1, $variable2, $variable3)];
Leave a comment:
-
It is best to modify XML files using an XML parser. I recommend XML::Twig. The set_tag method is used to globally modify start and end tags.Leave a comment:
-
200k will not take up much memory, so just loop through the array storing the values in a hash. This works whether the values are already sorted or not.
...Code:use warnings; use strict; use Data::Dumper; my @array = (0,0,0,1,1,1,1,2,3,3); my %hash; for (@array) { $hash{$_}++; } print Dumper(\%hash); __END__ $VAR1 = { '1' =>Leave a comment:
-
This code does what you ask:
You need to use s///s and ? to prevent greediness.Code:use warnings; use strict; use File::Slurp; my $file = read_file('./test'); $file =~ s/(struct xyz.*?)unsigned x/$1unsigned m/s; print "$file\n";Leave a comment:
-
Can you clarify how this relates to Perl?Leave a comment:
-
One problem is that you are not reading in the lines of your files after you opened them. Read perlintro.
Another problem is that you need to use nested while loops to loop through all lines of both files.Leave a comment:
-
Use the between function from Acme::ToolsLeave a comment:
-
Try to capture the cmd output into an array variable instead of a scalar variable:
This is discussed in the cmd section of the Net::Telnet documentation.Code:my @lines = $telnet->cmd("ls");Leave a comment:
-
It is a regular expression which matches any non-space character at the beginning of a string.
perlre
YAPE::Regex::Ex plain
...Code:use strict; use warnings; use YAPE::Regex::Explain; print YAPE::Regex::Explain->new(qr/^[^ ]/)->explain(); __END__ The regular expression: (?-imsx:^[^ ]) matches as follows:
Leave a comment:
-
You should use $a and $b (not $b and $c) in your sort block. I'm surprised your code compiles without errors with use strict.Leave a comment:
-
Yes, it is possible to only print part of a line, and there are various ways to do so. One way is to use split as follows:
This prints...Code:use strict; use warnings; while (<DATA>) { my $motif = (split)[0]; print "$motif\n"; } __DATA__ small_motif_a CGTCGCACAGC small_motif_b CGTCGCACGAC small_motif_c CGTCGCCCAGCLeave a comment:
-
To find the index of an element in an array, use List::MoreUtils
Code:use strict; use warnings; use List::MoreUtils qw(first_index); my @myarray = ("father","mother","sister","brother"); printf "item with index %i in list is sister", first_index { $_ eq 'sister' } @myarray; __END__ item with index 2 in list is sisterLeave a comment:
-
The conventional way to include subroutines is to use Perl modules (packages):Leave a comment:
-
Leave a comment:
-
What part of the task is giving you trouble?
Do you know how to open a file?
Do you know how to read through the file to find the strings of interest?
Show the code you have been working on for 4 days.
Since your input files look like Verilog code, a long-term solution might be to parse them using
Verilog-Perl.
However, since you are new to Perl, that might be a bit advanced....Leave a comment:
-
The tilde character does not get expanded as expected. This works for me:
The drawback is that it requires the HOME environment variable to be set.Code:use lib "$ENV{HOME}/some_dir/lib";Leave a comment:
-
Read the documentation. The return value of the Date_to_Text function is clearly specified:
Code:my @today = Today(); my @date = Add_Delta_YMD(@today, 0,2,0); my $date_fmt = (split /\s+/, Date_to_Text(@date))[1]; print "2 months from now will be: $date_fmt\n";
Leave a comment:
-
Date::Calc
Code:use strict; use warnings; use Date::Calc qw(Today Add_Delta_YMD Date_to_Text); my @today = Today(); my @date = Add_Delta_YMD(@today, 0,2,0); print "2 months from now will be: ", Date_to_Text(@date), "\n"; __END__ 2 months from now will be: Thu 28-Oct-2010
Leave a comment:
No activity results to display
Leave a comment: