Wikipedia:WikiProject Chemistry/Structure drawing workgroup/Mysid's script: Difference between revisions

Revision as of 19:14, 25 October 2007

Revision as of 19:17, 25 October 2007

Line 61:

$outfile2 = $infile;

$outfile2 =~ s/.svg/2.svg/;

open OUTPUT, '>', $outfile2 or die "Could not write $outfile2: $!\n";

while (<INPUT>) {

#Take out redundant groups.