Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re^6: Parsing Guassian '03 Log Files

by Andrew_Levenson (Hermit)
on Jan 31, 2008 at 21:31 UTC ( #665452=note: print w/replies, xml ) Need Help??


in reply to Re^5: Parsing Guassian '03 Log Files
in thread Parsing Guassian '03 Log Files

Ooh, @array = ();? Nice. Yeah, I completely forgot how to empty an array, so I... made my own way. I guess we know now why I'm a chemistry major now instead of Computer Science, haha.

If its okay, i'm going to test your script and replace mine in the bin? Or not, I'll figure it out when I get back to the lab.
Again, thanks.
C(qw/74 97 104 112/);sub C{while(@_){$c**=$C;print (map{chr($C!=$c?shift:pop)}$_),$C+=@_%2!=1?1:0}}

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://665452]
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (3)
As of 2016-12-10 17:26 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    On a regular basis, I'm most likely to spy upon:













    Results (164 votes). Check out past polls.