#!/usr/bin/perl -w use strict; while (<DATA>) { chomp; print "$_\n"; if (/-(\S+)(\s*(.*))?/x) { my ($p1, $p2) = ($1, $3); if (defined $p2) { $p2 =~ s/^"//; $p2 =~ s/"$//; } print "[$p1][$p2]\n"; } } __DATA__ -libs "source*.lib source*.lib" -1dlu -2dlu -3dlu "(1,1,3)" -filter ASDF
In reply to Re: Text Extraction Problems
by Roger
in thread Text Extraction Problems
by EchoAngel
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |