Yet Another CPAN Grep

MS ( V/VO/VOLKENING/MS-0.207003.tar.gz, VOLKENING, 2023; MetaCPAN )

MS/bin/unimod2storable.pl ( view source; MetaCPAN )

#!/usr/bin/perl

use strict;
use warnings;

use Getopt::Long;
use HTTP::Tiny;
use JSON qw/decode_json/;
use XML::Twig;
use Storable qw/nstore/;

my $twig = XML::Twig->new(
    twig_roots => {

 my $url = sprintf
            "https://pubchem.ncbi.nlm.nih.gov/rest/pug/compound/fastformula/%s/JSON?MaxRecords=1",
            $elements{$el},
        ;

        my $res = $ua->get($url);

etch data for $el: $res->{reason}\n";
            next ELEM;
        }

        my $data = decode_json( $res->{content} );
        my @mono = grep {$_->{urn}->{label} eq 'Weight' && $_->{urn}->{name}