Changeset 1959

Show
Ignore:
Timestamp:
09/15/06 00:11:21
Author:
miyagawa
Message:

use Pod::Usage

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • misc/bonjourfind

    r1918 r1959  
    33use warnings; 
    44use Net::Rendezvous; 
     5use Pod::Usage; 
    56 
    6 my $proto = shift @ARGV || "Usage: bonjourfind protocol\n"
     7my $proto = shift @ARGV || pod2usage(1)
    78my $res = Net::Rendezvous->new($proto); 
    89$res->discover; 
     
    1112    printf "%s %s:%s\n", $entry->name, $entry->address, $entry->port; 
    1213} 
     14 
     15__END__ 
     16 
     17=head1 NAME 
     18 
     19bonjourfind - Find Bonjour entries 
     20 
     21=head1 SYNOPSIS 
     22 
     23  bonjourfind [protocol] 
     24 
     25=cut 
  • misc/currency

    r1958 r1959  
    55use Finance::Currency::Convert::Yahoo; 
    66use Number::Format; 
     7use Pod::Usage; 
    78 
    89my $to   = "JPY"; 
    9 GetOptions('--to=s', \$to); 
     10GetOptions('help|?' => \my $help, '--to=s', \$to); 
     11pod2usage(1) if $help; 
    1012 
    1113no warnings 'uninitialized'; 
     
    1719 
    1820if ($currency !~ /^\w{3}$/) { 
    19     die "Unknown currency: $currency\n"
     21    pod2usage("Unknown currency: $currency\n")
    2022} 
    2123 
     
    3133    Number::Format->new->format_number($_[0]); 
    3234} 
     35 
     36__END__ 
     37 
     38=head1 NAME 
     39 
     40currency - Convert currency from one to another 
     41 
     42=head1 SYNOPSIS 
     43 
     44  currency 100 USD 
     45  currency -t GBP 1000 THB 
     46 
     47=cut 
  • misc/pagerank

    r1940 r1959  
    22use strict; 
    33use warnings; 
    4  
     4use Pod::Usage; 
    55use WWW::Google::PageRank; 
    66 
    7 my $url = shift @ARGV or die "Usage: pagerank URL\n"
     7my $url = shift @ARGV or pod2usage(1)
    88unless ($url =~ m!^http!) { 
    99    $url = "http://$url"; 
     
    1212my $pr = WWW::Google::PageRank->new; 
    1313print "Page Rank: ", scalar($pr->get($url)) || 0, "\n"; 
     14 
     15__END__ 
     16 
     17=head1 NAME 
     18 
     19pagerank - Extract PageRank from Google 
     20 
     21=head1 SYNOPSIS 
     22 
     23  pagerank URL 
     24 
     25=cut 
  • misc/timezonecvt

    r1956 r1959  
    66use Date::Manip; 
    77use Getopt::Long; 
     8use Pod::Usage; 
    89 
    910my $from = "America/Los_Angeles"; 
     
    1314Getopt::Long::Configure("bundling"); 
    1415 
    15 my $date = join ' ', @ARGV or die "Usage: timezonecvt [-f From] [-t To] date\n"
     16my $date = join ' ', @ARGV or pod2usage(1)
    1617my @date = localtime(UnixDate(ParseDateString($date), "%s")); 
    1718 
     
    3435$to_date ($to) 
    3536EOF 
     37 
     38__END__ 
     39 
     40=head1 NAME 
     41 
     42timezonecvt - Convert timezone for given datetime 
     43 
     44=head1 SYNOPSIS 
     45 
     46  timezonecvt 9/12 13:45 
     47  timezonecvt -f Asia/Tokyo -t America/New_York tomorrow 3pm 
     48 
     49=cut 
  • misc/uridatadecode

    r1876 r1959  
    11#!/usr/bin/perl 
     2use strict; 
     3use Pod::Usage; 
    24use URI; 
     5 
    36my $uri = URI->new(join "", <>); 
    4 $uri->scheme eq 'data' or die "Input data is not data URI"
     7$uri->scheme eq 'data' or pod2usage("Input data is not data URI")
    58print $uri->data; 
    69 
     10__END__ 
     11 
     12=head1 NAME 
     13 
     14uridatadecode - decodes data: URI scheme and print it to STDOUT 
     15 
     16=head1 SYNOPSIS 
     17 
     18  > uridatadecode 
     19  data:... 
     20  ^D 
     21 
     22=cut 
  • misc/worlddate

    r1955 r1959  
    2626); 
    2727 
    28 my $now = DateTime->now; 
     28my $dt = DateTime->now; 
    2929for my $tz (@tz) { 
    30     $now->set_time_zone($tz); 
    31     print $now->ymd('/'), ' ', $now->hms(':'), " ", $tz, ($now->is_dst ? '*' : ''), "\n"; 
     30    $dt->set_time_zone($tz); 
     31    print $dt->ymd('/'), ' ', $dt->hms(':'), " ", $tz, ($dt->is_dst ? '*' : ''), "\n"; 
    3232} 
    33