I am new to Perl too and have a little try:
#!/usr/bin/perl
use warnings;
use strict;
my @data;
while (<>) {
chomp;
push @data,$_ if !/^\ wrote:
> Hi all,
>
> I'm brand new to Perl, and have just a little programming background. I was
> tasked with parsing a set of .html
On Wed, 20 Apr 2005 17:04:50 +0300
Offer Kaye <[EMAIL PROTECTED]> wrote:
> On 4/20/05, Paul Kraus wrote:
> > Why does this work
> > my $date = 'one | two |three |';
> > my @record = map ( whitespace($_), (split /\|/,$_) );
>
> No, it won't work - you need to replace the $_ at the en
On Thu, 21 Apr 2005 08:31:27 +0300
Offer Kaye <[EMAIL PROTECTED]> wrote:
> On 4/21/05, FreeFall wrote:
> > > 3. But there's an even easier way, without having to use map:
> > > my @record = split /\s*\|\s*/,$date;
> >
> > -->this
On Thu, 21 Apr 2005 10:06:24 +0300
Offer Kaye <[EMAIL PROTECTED]> wrote:
> On 4/21/05, FreeFall wrote:
> > Sure I did with Paul's example data :
> > $date = 'one | two |three |';
> > And I tried to change the regx /\s*\|\s*/ to /s*\|?\s*/ and
Or you can try:
__BEGIN__
#!/usr/bin/perl
use warnings;
use strict;
my @decimals;
$_ = 'atom 12 N VAL A 1 12.435 13.66 34.6 32.1 32 a N';
push @decimals,$1 while (/(\d+\.?\d*)/g);
print "@decimals\n";
__END__
On Mon, 9 May 2005 19:04:08 +0530
Aditi Gupta <[EMAIL PROTECTED]> wrote:
> H
On Tue, 10 May 2005 09:22:31 +0200
John Doe <[EMAIL PROTECTED]> wrote:
> my @decimals= /(\d+\.?\d*)/g;
cool! Thanks!
--
Whatever you do will be insignificant,but
the important is you do it!
It doesn't matter who you are, it's what
you do that takes you far!
--
To unsubscribe, e-mail: [EMAI
perldoc -f glob maybe will help:
On Tue, 7 Jun 2005 14:13:29 -0700
"Vladimir Lemberg" <[EMAIL PROTECTED]> wrote:
> glob ("*.vsn")
--
Whatever you do will be insignificant,but
the important is you do it!
It doesn't matter who you are, it's what
you do that takes you far!
--
To unsubscribe
The following code may be not simple:
===code===
#!/usr/bin/perl
use warnings;
use strict;
my %hash = ("abc"=>"mallik","xyz"=>"ariun","mno"=>"priya");
my %hash2 = ("abc"=>"123","xyz"=>"243","mno"=>"532");
foreach (keys %hash2) {
$hash{$hash2{$_}} = $hash{$_};
delete $hash{$_};
}
foreach (keys
On Sun, 12 Jun 2005 11:49:37 -0700 (PDT)
Christopher Spears <[EMAIL PROTECTED]> wrote:
> I am trying to update a script I wrote to automate
> g++. Here is an excerpt:
>
> #!/bin/perl -w
> use strict;
>
> my $number_of_args = @ARGV;
>
> open STDERR, ">./caught_errors" or die "Can't create
> ca
try:
perl -ne '$line=$_;END{print $line}' yourfile
On Mon, 25 Jul 2005 19:09:50 +0530
[EMAIL PROTECTED] wrote:
>
> hi ,
> I am a perl newbie.
> Can someone suggest a perl command line snippet that will print the last n
> lines of a file.
>
> thanks in advance.
> regards,
> Kaushik
>
>
10 matches
Mail list logo
