File: get.pl

package info (click to toggle)
libmojomojo-perl 1.11%2Bdfsg-3
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 4,496 kB
  • ctags: 927
  • sloc: perl: 14,671; sh: 148; xml: 120; makefile: 8; ruby: 6
file content (8 lines) | stat: -rw-r--r-- 275 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
 
use warnings;
use LWP::Simple qw/getstore/;
use Text::Emoticon::MSN;
my @files = map {$Text::Emoticon::MSN::EmoticonMap{$_}}
            keys %Text::Emoticon::MSN::EmoticonMap;
for my $file (@files) {
   getstore("http://messenger.msn.com/Resource/emoticons/$file",$file);
}