http://qs321.pair.com?node_id=239052


in reply to Re: strings with options - how do I do this?
in thread strings with options - how do I do this?

Works fine with the caveat that the string shouldn't contain any meta characters that glob might want to expand, like '*'. And this: 
for ($text) {
   s/\[/{/g;
   s/\]/}/g;
   s/\|/,/g;
}

[download]
could be written as: $text =~ tr/[|]/{,}/;

-- Hofmator

Replies are listed 'Best First'.
Re: Re: Re: strings with options - how do I do this?
by blakem (Monsignor) on Feb 27, 2003 at 11:04 UTC
    Good points... How about this: 
    use File::Glob qw(:glob);

sub parseit {
  my $text = shift;
  $text =~ tr/[|]/{,}/;
  $text =~ s/([\\?*])/\\$1/g;
  map {s/\\([\\?*])/$1/g; $_} 
      bsd_glob($text, GLOB_BRACE | GLOB_NOCHECK);
}

    [download]

    -Blake

[reply]
[d/l]
      thank you people ... that does it perfectly. I learnt my "something new" for today too.
[reply]

In Section Seekers of Perl Wisdom