[33075] in Perl-Users-Digest
Perl-Users Digest, Issue: 4351 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Jan 18 21:09:18 2015
Date: Sun, 18 Jan 2015 18:09:04 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Sun, 18 Jan 2015 Volume: 11 Number: 4351
Today's topics:
fields <gravitalsun@hotmail.foo>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 19 Jan 2015 01:53:05 +0200
From: George Mpouras <gravitalsun@hotmail.foo>
Subject: fields
Message-Id: <m9hh17$fvf$1@mouse.otenet.gr>
I want the fastest way to grub the fields from a huge ; delimited file.
The fields can be randomly quoted or not. currently I use the following
use strict;
use warnings;
my $regex_split = qr/^(.*?);(.*?);(.*?);(.*?)$/o;
my $regex_dequote = qr/^"([^"\\]++|\\.)*+"$/o;
while (<DATA>) {
chomp;
my @col = $_ =~ $regex_split or die;
s/$regex_dequote/$1/ foreach @col;
print "@col\n"
}
__DATA__
"a1";;c1;d1
a2;"b2";;d2
;"b3";;
a4;b4;c4;d4
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
Back issues are available via anonymous ftp from
ftp://cil-www.oce.orst.edu/pub/perl/old-digests.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V11 Issue 4351
***************************************
