Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

TilRMan's scratchpad

by TilRMan (Friar)
on Jun 02, 2004 at 01:02 UTC ( #358931=scratchpad: print w/replies, xml ) Need Help??

!/usr/bin/perl -w use strict; use Test::More; plan tests => 4; $/ = ","; my $foo = "ab$/cd"; ok($foo =~ /^a/m); ok($foo =~ /b$/m); ok($foo =~ /^c/m); ok($foo =~ /d$/m);
Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
[Corion]: Text::CSV_XS for all your CSV file parsing needs. Other than that, what problems do you have with perlre, and capturing everything after the comma? Also, index and substr would also work.
[choroba]: my ($value) = $string =~ /.*,(.*)/
[choroba]: The .* at the beginning matches the longest possible substring, so it eats any previous commas
[choroba]: But for CSV, use appropriate modules

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (8)
As of 2018-05-27 08:54 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Notices?