http://qs1969.pair.com?node_id=665452


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}}