note
pme
Hi [jonathan.vanderwatt]
<p>
Welcome to the monastery!
<p>
This little piece of code might help.
<code>
while (my $row = <$fh>) {
chomp($row);
next if $row =~ /^cd|^#|^$/; # skip lines
$row =~ /xruntime\/([a-z0-9]+)_/; # regexp pattern matching with memory ()
print "\t{ \"{#BOBINSTANCE}\":\"$1\"}\n"; # print memory register $1
}
</code>
1134684
1134684