From 13bce6f4ce992fd083a8181d1940ee59ba3dba71 Mon Sep 17 00:00:00 2001 From: Marco d'Itri Date: Wed, 23 Apr 2014 05:46:24 +0200 Subject: Make the small perl programs uniform in style --- make_ip6_del.pl | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'make_ip6_del.pl') diff --git a/make_ip6_del.pl b/make_ip6_del.pl index d94629e..80f0b0c 100755 --- a/make_ip6_del.pl +++ b/make_ip6_del.pl @@ -1,14 +1,15 @@ -#!/usr/bin/perl -w +#!/usr/bin/perl +use warnings; use strict; while (<>) { chomp; - s/^\s*(.*)\s*$/$1/; - s/\s*#.*$//; + s/#.*$//; + s/^\s+//; s/\s+$//; next if /^$/; - die "invalid line:\n$_\n" + die "format error:\n$_\n" if not m#^([\da-fA-F]{4}):([\da-fA-F]{1,4})::/(\d+)\s+([\w\.]+)$#; my $len = $3; my $s = $4; my $i1 = $1; my $i2 = $2; -- cgit v1.2.3