文字列がマッチした時の正規表現
『
$data = "hoge";
if($data =~ /hoge/){print "一致しました";}
』
実行結果→『一致』
文字列がマッチしなかった時の正規表現
『
$data = "hogehoge";
if($data =!~ /hoge/){print "一致しませんでした";}
』
実行結果→『一致しませんでした』
日付を取得
『
($mday,$mon) = (localtime(time))[3..4];
$mon += 1;
print "${mon}月${mday}日";
』
実行結果→ 『3月12日』
改行コードを削除する
『
$data = "ほげほげ\nにょろにょろ\r\n\nぎゃああ";
$data =~ s/\r//;
$data =~ s/\n//;
print "$data";
』
実行結果→『ほげほげにょにょろぎゃああ』
Net::TwitterでTwitterに投稿する
『
use Net::Twitter;
$twit = Net::Twitter->new( username=>"アカウントID", password=>"パス" );
my ( $text ) = "ほげほげ";
Jcode::convert(\$text, 'utf8');
my $result = $twit->update($text);
』
データを一行ごとに読み込み
『
@data = ("1","2","3");
$str = "4";
foreach (@data) {
if (!/$str/){$name = "禁則事項です♪"};
}
』
実行結果→『禁則事項です♪』
