Hello. I made a Perl script that allows users to supply the script with (a)an element name, (b)the element's symbol, or (c)the element's atomic number, and the script supplies the two missing fields. The script can be called with a list, i.e., perl prog.pl 1 2 3 4 5 6 That gets the first six elements; however, you can also call it like this to get a similar result: perl prog.pl 1..6. I include the script here in case any one else can find any uses for it.

($s,$n,$a)=split,$r={S,$s,N,$n,A,$a},$S{$r->{S}}=$r,$N{$r->{N}}=$r,
                                      $A{$r->{A}}=$r while <DATA>;
$c = sub {
    local $_=pop;return if /^[san]$/;
    print"Name: $_\n"if s/^n//;
    print"Atomic Number: $_\n"if s/^a//;
    print"Symbol: $_\n"if s/^s//;
};
for(@ARGV) {
    for(eval) {
        $_="n$A{$_}{N}:s$A{$_}{S}"if/\d+/;
        $_="n$S{$_}{N}:a$S{$_}{A}"if/^..?$/&&!/\d/;
        $_="s$N{$_}{S}:a$N{$_}{A}"if!/:/;
        split/:/;&$c($_[0]);&$c($_[1]);
    }
}
__DATA__
H   Hydrogen   1
He  Helium     2
<<rest of the elements go here>>
[download]

2001-06-14 Edit by Corion : Moved to Cool Uses For Perl (since Craft dosen't allow comments and would have required heavy reformatting)