perl

perlのsplitで空の末尾を残す場合

#CSVデータ my $csv_data = "aaaa,bbbb,cccc,"; my @value_array = split(/,/,$csv_data); #↑↑場合は #@value_array = ('aaaa','bbbb','cccc'); #splitの第3引数に-1を指定 my @value_array = split(/,/,$csv_data,-1); #↑↑場合は #@value_array = ('aaaa','…

サブネットマスク計算 Net::Netmaskモジュール使ってみた

use utf8; use strict; use warnings; use NetAddr::IP; use Net::Netmask; my $block = new Net::Netmask ('192.168.56.1/27'); print "block:$block"."\n"; #ネットワークアドレス print "base:".$block->base()."\n"; #サブネットマスク print "mask:".$b…

perlで連続する同じ文字列を探す方法

同一文字が3回以上連続する場合 #!/usr/bin/perl use strict; use warnings; my $test = 'xyz123aaa'; #(.)は任意の1文字 #\1は正規表現内でマッチした文字 この場合任意の1文字 #{2,}2回以上連続した場合 if ($test =~ /(.)\1{2,}/){ print "$test\n"; } pe…