perl script for reading an array and put specific patterns from 1st array to second array

Question

i am trying to write a perl script where i am reading the data into an array which is an output of some command like this:

my @a = system "p4 changes -u";

now that data has been into the array @a it looks something like this:

change 256789 on date.. by user@workspace 'some description'
change 256788 on date.. by user@workspace 'some description'
..........................................................
...........................................................
.
.
..
...

there are so many lines

now what i would like to do is get the "some description" field of each entry into another array and then append some common text to it.
any ideas how to do it , i am relatively new to Perl so not getting much ideas how to do it.

Alan Haggai Alavi · Accepted Answer · 2012-08-08 14:41:31Z

2

system executes the command but does not capture the output. To capture output you can use backticks(`) or the qx operator.

#!/usr/bin/env perl

use strict;
use warnings;

my @descriptions;
for (qx{p4 changes -u}) {
    chomp;
    push @descriptions, /(?<=')(.+)(?=')/;
}

edited Aug 8, 2012 at 14:41

answered Aug 8, 2012 at 14:36

Alan Haggai Alavi

74.7k19 gold badges105 silver badges129 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

cdtits · Accepted Answer · 2012-08-08 14:42:38Z

0

Maybe as this:

@b = map { /('[^']+')/; "abc $1 xyz"; } @a;
print "$_\n" for @b;

answered Aug 8, 2012 at 14:42

cdtits

1,1286 silver badges7 bronze badges

Collectives™ on Stack Overflow

perl script for reading an array and put specific patterns from 1st array to second array

2 Answers 2

Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related