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.
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}}
In Section
Seekers of Perl Wisdom