2007-11-11から1日間の記事一覧
とりあえずホストだけチェックできればいいかな、と。 #! /usr/bin/perl -w use strict; use warnings; my @valid_hosts = ( "hoge.com", "fuga.co.jp" ); sub validate { my($url) = @_; my $ret = -1; foreach my $vhost (@valid_hosts) { if ($url =~ /^s…
とりあえずホストだけチェックできればいいかな、と。 #! /usr/bin/perl -w use strict; use warnings; my @valid_hosts = ( "hoge.com", "fuga.co.jp" ); sub validate { my($url) = @_; my $ret = -1; foreach my $vhost (@valid_hosts) { if ($url =~ /^s…