in reply to Re: Parse TCL list?
in thread Parse TCL list?
That seems to produce correct output for all of your examples.#! /usr/bin/perl use strict; use Regexp::Common; my $string = "@ARGV"; print "$_\n" for $string =~ /(\w+|$RE{balanced}{-parens=>'{}'})/g;
|
|---|