Here's one way to get the text string you want, then you just have to plug it in where you need it.

#!/usr/bin/env perl
use Modern::Perl;

sub fix {
    return join '|', '', ( map { sprintf('%02d',length $_), $_ } split
+ /\./, shift ), '00', '';
}

say fix 'foo.com';
say fix 'foo.foobar.com';
say fix 'foo.foobar.foo.com';
[download]

Im probably doing something wrong but I pulled out the join statement and plugged it in to a while loop to read the csv file and all I get are a bunch of |00|.


#!/usr/bin/perl

$work = "/var/tmp/work";
$input = "$work/domainlist.csv";

open (IN,"$input");
open (OUT,">domainlist.rules");
while (<IN>) {
  chomp();
  $domain = $_;

    print join '|', '', ( map { sprintf('%02d',length $domain), $domain } split /\./, shift ), '00', '';

}

That's because my code uses shift to get the first argument to the subroutine. If you take it out of the subroutine, you'll need to replace that shift with the variable that contains the value you want to split.

Aaron B.
Available for small or large Perl jobs; see my home node.