Re^2: How would you do this?

Untested, but this might get you close:

#! perl -slw
use strict;

open ZCAT, '|-', 'zcat *.gz' or die;

my %uniq;

while( <ZCAT> ) {
    my( $varname ) = m[!dataset_([^=]+)=] or next;
    $uniq{ $varname } = 1;
}

close ZCAT;

print "uniq names sorted";
print for sort keys %uniq;
[download]

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

RIP an inspiration; A true Folk's Guy

Comment on Re^2: How would you do this? Download Code

Replies are listed 'Best First'.
Re^3: How would you do this? by david_lyon (Sexton) on Jun 13, 2010 at 15:47 UTC
Thanks BrowserUk The parsing works nicely...thanks. Only 1 issue how to I stop this line from spiting out the contents of the files to the terminal or it is something in my setup? It doesnt pass the data to ZCAT it just spits it out to the terminal. `open ZCAT, '\|-', 'zcat *.gz' or die;` [download] Thanks once again	[reply] [d/l]
Re^4: How would you do this? by BrowserUk (Patriarch) on Jun 13, 2010 at 15:51 UTC
Sorry, that should be: `open ZCAT, '-\|', 'zcat *.gz' or die;` [download] Interesting how you tested the parsing without knowing how to correct that? Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice. RIP an inspiration; A true Folk's Guy	[reply] [d/l]
Re^5: How would you do this? by david_lyon (Sexton) on Jun 13, 2010 at 16:24 UTC
incredible....thank you very much.	[reply]