| Teppich | anno: I use systemname as key, and a error-message as value... this information-pair is stored every occurence |
| gnube | f3ew, Seems like a lot more overhead but maybe that is the way to go. |
| f00li5h | perhpas you would be interested in File::Temp Teppich: not in a hash it isn't |
| gnube | f00li5h, I thought everything that I create should go there? |
| f00li5h | gnube: pardon? |
| Daveman | copters. |
| anno | Teppich: multiple times for the asme system name? then you're not using a hash |
| gnube | Well, I am copying a file owned by root (i.e. /var/log/apache/accless.log) and I cannot read it so I copy it to temp and parse it there. |
| joep | I'll sign off. Will come back later. |
| f00li5h | eval: %h = ( foo => bar , baz => quux, foo => spam ); \%h |
| buubot | f00li5h: {baz => 'quux',foo => 'spam'} |
| Teppich | anno: but I am trying to :) maybe you could take a look at http://rafb.net/p/1TKczC13.html |
| f00li5h | Teppich: the topic lists many wonderful paste bins SWEET MOSIS, that's a hell of a regex |
| f3ew | gnube, that won't work :P |
| f00li5h | Teppich: http://rafb.net/p/1TKczC13.html |
| gnube | f3ew, Works for me. |
| f00li5h | Teppich: sorry, use vars is ick |
| action | CPAN upload: Tk-Wizard-2.002 by MTHURN |
| CPAN | upload: Tk-Wizard-2.002 by MTHURN |
| Teppich | f00li5h: ...ick? |
| f00li5h | Teppich: ick. |
| anno | Teppich: you're redefining the entire hash on every access |
| f00li5h | Teppich: you know the sound you make when you realise you've stepped in something disgusting "ick" |
| f3ew | gnube, you can copy the file, and it's contents, but not read them? |
| f00li5h | Teppich: with variables, more scope == more bad |
| Teppich | anno: interesting, but then, why do I get 20ish lines of output per found error/system... |
| anno | you probably want "$data{ $FQDNBlade} = $Def" |
| f00li5h | %data=("$FQDNBlade" => "$Def"); shouldn't it be $data{FQDNBlade} = $Def? |
| anno | Teppich: not from the code yopu posted |
| Flawless | can I make an expression that matches the same subexpression (say) 30 times, without writing the subexp 30 times? |
| gnube | f3ew, Not exactly. I perhaps did not explain myself properly. Since I am using Tie::File I have to be able to _write_ to the file, which I cannot do, so I copy it. |
| f3ew | ah right |
| gnube | f3ew, Sorry to be confusing or unclear |
| f3ew | /foo{30}/ |
| Teppich | anno: ok thanks so far, try to fix it with your and f00li5h suggestions |
| f00li5h | Teppich: also, if you use (?: ) to do non-capturing groups in your regex, you can have it so you only have 2 captures |
| gnube | f00li5h, What is wrong with using files copied to /tmp? |