Changes between Version 46 and Version 47 of Perl

Timestamp:

07/29/08 18:35:00 (16 years ago)

Author:

atzm

Comment:

--

Perl

@@ -614 +614 @@
 }}}
 
+== IP アドレス ==
+=== IP アドレス ←→ 数値変換 ===
+ * これだけのためにいちいち CPAN モジュールをインストールするのはイヤとかそんな理由
+{{{
+#!perl
+sub num2ipv4addr {
+    return join( '.', unpack( 'C*', pack( 'N', shift ) ) );
+}
+
+sub ipv4addr2num {
+    return unpack( 'N', pack( 'C*', split( /\./, shift ) ) );
+}
+
+sub main {
+    foreach my $arg (@_) {
+        if ( $arg =~ /^\d+$/ ) {
+            print num2ipv4addr($arg), "\n";
+        }
+        else {
+            print ipv4addr2num($arg), "\n";
+        }
+    }
+}
+
+if ( $0 eq __FILE__ ) {
+    &main( @ARGV ? @ARGV : <STDIN> );
+}
+}}}
+
 = !PersistentPerl =
  * !PersistentPerl に限った話