Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

Re^3: comments and qw

by rnahi (Curate)
on Feb 12, 2006 at 20:32 UTC ( #529685=note: print w/ replies, xml ) Need Help??


in reply to Re^2: comments and qw
in thread comments and qw

It might be useful to skip blank lines (or lines that just contain comments) like the real qw():
That won't be necessary. split with a single space is a special case that splits on any number of whitespace, including newlines.

Try it for yourself:

#!/usr/bin/perl use strict; use warnings; use Data::Dumper; sub qwx { my ( $text ) = @_; $text =~ s/\s*[#].*$//mg; return split ' ', $text; } my @items = qwx" this is # possibly a # commented list # with stand-alone comments # and empty lines " ; print Dumper \@items; __END__ $VAR1 = [ 'this', 'is', 'a', 'list' ];


Comment on Re^3: comments and qw
Download Code
Replies are listed 'Best First'.
Re^4: comments and qw
by ikegami (Pope) on Feb 13, 2006 at 03:08 UTC
    ah yes, I forgot.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://529685]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (11)
As of 2015-07-08 07:53 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (96 votes), past polls