remove unused files

[dotfiles.git] / scripts / ip.pl

diff --git a/scripts/ip.pl b/scripts/ip.pl
deleted file mode 100755 (executable)
index e4634ac..0000000
--- a/scripts/ip.pl
+++ /dev/null
@@ -1,19 +0,0 @@
-#!/usr/bin/perl
-#
-#open IFCONF, 'ifconfig | grep "inet .*broadcast" |' or die 'haha';
-#while(<IFCONF>)
-#{
-##    print $_;
-#}
-#
-#my @cc = split /\s+/, `ifconfig | grep "inet .*broadcast"`;
-#my $aa =  `ifconfig | grep "inet .*broadcast"`;
-#$_ = $aa;
-#print $aa;
-#my $aa =~ m/([0-9]{1,3}\.){3}[0-9]{1,3}/;
-#print $1;
-my $ff = (split / /, `ifconfig | grep "inet .*broadcast"`)[0];
-print  "==||" . $ff . "==\n";
-
-
-