There are two types of for loop in perl, in addition to the for statement modifier. They look like this: # c-style for loop for ( my $i = 0; $i < 12; ++$i ) { … } # regular for loop for my $i (0..11) { … } # statement modifier … for 0..11; … Read more
I would do something like this: cat log | grep -o “number\=[0-9]\+” | cut -d= -f2 | sort | uniq -c The output for your example is: 7 1193046 6 466000000 5 solved search value and count number from log file
If this is for perl code, as your tags imply, then you would typically use grep: my @all = qw( 12345_lrg.jpg 12445_sml.jpg 14445_sml.jpg 12345_lrg.jpg 42345_lrg.jpg ); my @sml = grep /_sml\.jpg$/i, @all; 2 solved Grep certain files only
I was close to closing this question as you didn’t include your workings. But I’ve seen your comment – you should edit your question to include that. So here’s your code: use POSIX ‘strftime’; print strftime “%Y_%m_%d_%H_%M_%S/n”, localtime() – 24 * 60 * 60); That’s pretty close. You have three small issues. You have /n … Read more
You haven’t told us the expected format for the data or shown any existing code, so it’s impossible to know what you’re looking for, but this should get you at least 90% of the way there: use strict; use warnings; use Data::Dumper; my %config; my $group = ”; while (<DATA>) { chomp; next unless /\S/; … Read more
use strict; use warnings; use HTML::TreeBuilder::XPath; my ($dir) = @ARGV; my @files = glob “$dir/*”; for my $file (@files) { my $tree = HTML::TreeBuilder::XPath->new_from_file($file); my @opacity = $tree->findnodes_as_strings(‘//div[@class=”opacity description”]’); print “\n$file\n”; print ” $_\n” for @opacity; } solved Read file content and use Regular Expression to locate a pattern in each File in Perl
Setting $| to non-zero enables autoflush on only the currently selected output file handle. By default this is STDOUT unless you have called select to change it That means that, if you have opened a new handle to a file, $| will not affect its behaviour Instead, you can use the IO::Handle module’s autoflush method. … Read more
I think something like this should do what you want. We use a hash to gather the ‘reference’ file and turn it into a set of keys with an empty array. Then we iterate on the other files, extracting ‘3 values’ as key, and the last value as an actual value. And then we compare … Read more
Use the diamond operator to read from an opened file handle: open my $FH, ‘<‘, ‘/path/to/spool.txt’ or die $!; while (my $line = <$FH>) { print “I’ve read: $line”; } close $FH; 1 solved I want to read a file from a directory folder [duplicate]
You need to read about open to open your CSV files; <> or readline to read lines of text from the file; split to split the lines into fields; and cmp to compare whether two field values are equal. 1 solved Compare pairs of CSV files and colour the cells in the second file which … Read more
Using perl from command line, perl -ne ‘push @r, $_; print(@r[2,1,0,3]), @r=() if @r==4 or eof’ file solved Swap lines in a script by iteration over lines [closed]
Whenever you need some reasonably common matching problem resolve in Perl, you should always first check the Regexp::Common family on CPAN. In this case: Regexp::Common::Email::Address. From POD Synopsys: use Regexp::Common qw[Email::Address]; use Email::Address; while (<>) { my (@found) = /($RE{Email}{Address})/g; my (@addrs) = map $_->address, Email::Address->parse(“@found”); print “X-Addresses: “, join(“, “, @addrs), “\n”; } 1 … Read more
@pataka : I am not printing twice but doing comparison for both alpha-numeric strings . So i have printed one for stings and another for numbers . We can do the same even in this way as shown below: #Same Key and Value foreach my $val1 (keys %hash1) { foreach my $val2 (keys %hash2) { … Read more
Easy as a one-liner: perl -lane ‘print join “,”, map qq(“$_”), @F[0, 1]’ -l handles newlines in print -n reads the input line by line -a splits each line on whitespace into the @F array @F[0, 1] is an array slice, it extracts the first two elements of the @F array map wraps each element … Read more
Perhaps the following will be helpful: use strict; use warnings; print “Interface Name,Vlan Id,IP Address\n”; while (<DATA>) { my $interface = /interfaces\s+(\S+)\s+/ ? $1 : q/”/; my $vlanID = /unit\s+(\S+)\s+/ ? $1 : q/”/; my $ip = /address\s+(\S+)\s+/ ? $1 : q/”/; print “$interface,$vlanID,$ip\n”; } __DATA__ set interfaces ge-1/0/0 unit 0 family inet address 10.100.200.1/24 … Read more