Welcome to the monastery!
This little piece of code might help.
while (my $row = <$fh>) { chomp($row); next if $row =~ /^cd|^#|^$/; # skip lines $row =~ /xruntime\/([a-z0-9]+)_/; # regexp pattern matc +hing with memory () print "\t{ \"{#BOBINSTANCE}\":\"$1\"}\n"; # print memory regist +er $1 }
In reply to Re: Problem printing JSON type output
by pme
in thread Problem printing JSON type output
by jonathan.vanderwatt
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |