10 More Discussions You Might Find Interesting
1. UNIX for Beginners Questions & Answers
I have a csv which has lot of columns . I was looking for an awk script which would extract a column twice. for the first occurance the header and data needs to be intact but for the second occurance i want to replace the header name since it a duplicate and extract year value which is in ddmmyy... (10 Replies)
Discussion started by: Kunalcurious
10 Replies
2. Shell Programming and Scripting
Hello gurus,
I have a lookup table
cat tmp1
\\\erw``~ 1
^774574574565665f\] 2
()42543^
and I`m trying to compare a bunch of strings such that, either the lookup table column 1, or the string to be looked up are substrings of each other (and return the second lookup column if yes).
... (2 Replies)
Discussion started by: sheetalk
2 Replies
3. Shell Programming and Scripting
Hello, I would like to know what is the three most abundant substrings of length 6 from col2. The file is quite large and looks like this
col1 col2
EN03 typehellobyedogcatcatdog
EN09 typehellobyebyebyebye
EN08 dogcatcatdogbyebyebyebye
EN09 catcattypehellobyebyebyebye... (9 Replies)
Discussion started by: verse123
9 Replies
4. Shell Programming and Scripting
I have a log file like below.
66.249.73.11 - - "UCiZ7QocVqYAABgwfP8AAHAA" "US" "Mediapartners-Google" "-" www.mahashwetha.com.sg "GET... (2 Replies)
Discussion started by: Tuxidow
2 Replies
5. Shell Programming and Scripting
Hello Everyone,
I am looking for a way to extract substrings to local variables. Here is the format of the string variable i am using :
/var/x/www && /usr/x/share/doc && /etc/x/logs
where the substrings i must extract are the "/var/x/www" and such.
I was originally thinking of using... (15 Replies)
Discussion started by: jimmy75_13
15 Replies
6. Shell Programming and Scripting
Hello,
I really would appreciate some help with a bash script for some string manipulation on an SQL dump:
I'd like to be able to rename "sites/WHATEVER/files" to "sites/SOMETHINGELSE/files" within the sql dump.
This is quite easy with sed:
sed -e... (1 Reply)
Discussion started by: otrotipo
1 Replies
7. Shell Programming and Scripting
Hi guys,
I am stuck in this problem. Please help.
I have two files.
FILE1 (with records starting from '>' )
>TC1723_3 similar to Scific_A7Q9Q3
EMSPSQDYCDDYFKLTYPCTAGAQYYGRGALPVYWNYNYGAIGEALKLDLLNHPEYIEQN
ATMAFQAAIWRWMNPMKKGQPSAHDAFVGNWKP
>TC214_2 similar to Quiet_Ref100_Q8W2B2 Cluster;... (1 Reply)
Discussion started by: smriti_shridhar
1 Replies
8. AIX
In AIX 4.2, are there any shell commands to do substrings and the text like manipulation commands ?
I want to take an error log where errors are multi-ligned and convert them into single lines to ease tracking/monitoring. I may need to shorten them out too.
If I can manage to put them into an... (2 Replies)
Discussion started by: Browser_ice
2 Replies
9. Shell Programming and Scripting
I have a very long string (millions of characters).
I have a file with start location and length that is thousands of rows long:
Start Length
5 10
16 21
44 100
215 37
...
I'd like to extract the substring that corresponds to the start and length from each row of the list:
I tried... (7 Replies)
Discussion started by: dcfargo
7 Replies
10. Shell Programming and Scripting
I'm only new to shell programming and have been given a task to do a program in .sh, however I've come to a point where I'm not sure what to do. This is my code so far:
# process all arguments (i.e. loop while $1 is present)
while ; do
# echo "Arg is $1"
case $1 in
-h*|-H*) echo "help... (4 Replies)
Discussion started by: switch
4 Replies
Net::Ifconfig::Wrapper(3pm) User Contributed Perl Documentation Net::Ifconfig::Wrapper(3pm)
NAME
Net::Ifconfig::Wrapper - provides a unified way to configure network interfaces on FreeBSD, OpenBSD, Solaris, Linux, OS X, and WinNT (from
Win2K).
Version 0.11
SYNOPSIS
#!/usr/local/bin/perl -w
# uni-ifconfig.pl
# The unified ifconfig command.
# Works the same way on FreeBSD, OpenBSD, Solaris, Linux, OS X, WinNT (from Win2K).
# Note: due of Net::Ifconfig::Wrapper limitations 'inet' and 'down' commands
# are not working on WinNT. +/-alias are working, of course.
use strict;
use Net::Ifconfig::Wrapper;
my $Usage = << 'EndOfText';
uni-ifconfig.pl # Print this notice
uni-ifconfig.pl -a # Print info about all interfaces
uni-ifconfig.pl <iface> # Print info obout specified interface
uni-ifconfig.pl <iface> down
# Bring specified interface down
uni-ifconfig.pl <iface> inet <AAA.AAA.AAA.AAA> mask <MMM.MMM.MMM.MMM>
# Set the specified address on the specified interface
# and bring this interface up
uni-ifconfig.pl <iface> inet <AAA.AAA.AAA.AAA> mask <MMM.MMM.MMM.MMM> [+]alias
# Set the specified alias address
# on the specified interface
uni-ifconfig.pl <iface> inet <AAA.AAA.AAA.AAA> [mask <MMM.MMM.MMM.MMM>] -alias
# Remove specified alias address
# from the specified interface
EndOfText
my $Info = Net::Ifconfig::Wrapper::Ifconfig('list', '', '', '')
or die $@;
scalar(keys(%{$Info}))
or die "No one interface found. Something wrong?
";
if (!scalar(@ARGV))
{
print $Usage;
exit 0;
}
if ($ARGV[0] eq '-a')
{
defined($ARGV[1])
and die $Usage;
foreach (sort(keys(%{$Info})))
{ print IfaceInfo($Info, $_); };
exit 0;
};
$Info->{$ARGV[0]}
or die "Interface '$ARGV[0]' is unknown
";
if (!defined($ARGV[1]))
{
print IfaceInfo($Info, $ARGV[0]);
exit 0;
}
my $CmdLine = join(' ', @ARGV);
my $Result = undef;
if ($CmdLine =~ m/As*([w{}-]+)s+downs*/i)
{
$Result = Net::Ifconfig::Wrapper::Ifconfig('down', $1, '', '');
}
elsif ($CmdLine =~ m/As*([w{}-]+)s+inets+(d{1,3}(?:.d{1,3}){3})s+masks+(d{1,3}(?:.d{1,3}){3})s*/i)
{
$Result = Net::Ifconfig::Wrapper::Ifconfig('inet', $1, $2, $3);
}
elsif ($CmdLine =~ m/As*([w{}-]+)s+inets+(d{1,3}(?:.d{1,3}){3})s+masks+(d{1,3}(?:.d{1,3}){3})s++?aliass*/i)
{
$Result = Net::Ifconfig::Wrapper::Ifconfig('+alias', $1, $2, $3);
}
elsif ($CmdLine =~ m/As*([w{}-]+)s+inets+(d{1,3}(?:.d{1,3}){3})s+(:?masks+(d{1,3}(?:.d{1,3}){3})s+)?-aliass*/i)
{
$Result = Net::Ifconfig::Wrapper::Ifconfig('-alias', $1, $2, '');
}
else
{ die $Usage; };
$Result
or die $@;
exit 0;
sub IfaceInfo
{
my ($Info, $Iface) = @_;
my $Res = "$Iface: ".($Info->{$Iface}{'status'} ? 'UP' : 'DOWN')."
";
while (my ($Addr, $Mask) = each(%{$Info->{$Iface}{'inet'}}))
{ $Res .= sprintf(" inet %-15s mask $Mask
", $Addr); };
$Info->{$Iface}{'ether'}
and $Res .= " ether ".$Info->{$Iface}{'ether'}."
";
$Info->{$Iface}{'descr'}
and $Res .= " descr '".$Info->{$Iface}{'descr'}."'
";
return $Res;
};
DESCRIPTION
This module provides a unified way to configure the network interfaces on FreeBSD, OpenBSD, Solaris, Linux, OS X, and WinNT (from Win2K)
systems.
Only "inet" (IPv4) and "ether" (MAC) addresses are supported at the moment
On Unixes this module calls the system "ifconfig" command to perform the actions. On Windows the functions from IpHlpAPI.DLL are called.
For all supported Unixes "Net::Ifconfig::Wrapper" expect "ifconfig" command to be "/sbin/ifconfig".
Module was tested on FreeBSD 4.7,4.8,5.3 (Intel), RedHat 6.2,7.3,8.0 (Intel), Win2000 Pro (Intel), OpenBSD 3.1 (SPARC), Solaris 7 (SPARC),
OS X 10.3 (aka Panther), OS X 10.4 (aka Tiger).
In MSWin32 family only WinNT is supported. In WinNT family only Win2K or later is supported.
The Net::Ifconfig::Wrapper methods
"Ifconfig(Command, Interface, Address, Netmask);"
The first and the last method of the "Net::Ifconfig::Wrapper" module. Do all the job. The particular action is described by the
$Command parameter.
$Command could be:
'list' "Ifconfig('list', '', '', '')" will return the reference to the hash contains the information about interfaces.
The structure of this hash is the following:
{IfaceName => {'status' => 0|1 # The status of the interface. 0 means down, 1 means up
'ether' => MACaddr, # The ethernet address of the interface if available
'descr' => Description, # The description of the interface if available
'inet' => {IPaddr1 => NetMask, # The IP address and his netmask, both are in AAA.BBB.CCC.DDD notation
IPaddr2 => NetMask,
...
},
...
};
Interface, Address, Netmask parameters are ignored.
The following programs are called:
FreeBSD "/sbin/ifconfig -a"
Solaris "/sbin/ifconfig -a"
OpenBSD "/sbin/ifconfig -A"
Linux "/sbin/ifconfig -a"
OS X "/sbin/ifconfig -a"
MSWin32 "GetAdaptersInfo" function from "IpHlpAPI.DLL"
Limitations:
OpenBSD: "/sbin/ifconfig -A" command is not returning information about MAC addresses so we are trying to get it from
'/usr/sbin/arp -a' command (first 'static' entry). If no one present the 'ff:ff:ff:ff:ff' address is returned.
MSWin32: "GetAdaptersInfo" function is not returning information about interface which have address 127.0.0.1 binded so
"Net::Ifconfig::Wrapper" have no ability to display it.
Not limitation but little problem: MSWin32 interface names are not human-readable, they looks like
"{843C2077-30EC-4C56-A401-658BB1E42BC7}" (on Win2K at least).
'inet' This function is used to set IPv4 address on interface. It have to be called as
Ifconfig('inet', $IfaceName, $Addr, $Mask);
$IfaceName is an interface name as displayed by 'list' command
$Addr is an IPv4 address in the "AAA.AAA.AAA.AAA" notation
$Mask is an IPv4 subnet mask in the "MMM.MMM.MMM.MMM" notation
The following actual "ifconfig" programs are called
FreeBSD "/sbin/ifconfig %Iface% inet %Addr% netmask %Mask% up"
Solaris "/sbin/ifconfig %Iface% inet %Addr% netmask %Mask% up"
OpenBSD "/sbin/ifconfig %Iface% inet %Addr% netmask %Mask% up"
Linux "/sbin/ifconfig %Iface% inet %Addr% netmask %Mask% up"
OS X "/sbin/ifconfig %Iface% inet %Addr% netmask %Mask% up"
MSWin32: nothing :(
Limitations:
MSWin32: I did not find the relaible way to recognize the "main" address on the Win32 network interface, so I have disabled
this functionality. If you know the way please let me know.
'up' Just a synonym for 'inet'
'down' This function is used to bring specified interface down. It have to be called as
Ifconfig('inet', $IfaceName, '', '');
$IfaceName is an interface name as displayed by 'list' command
Address and Netmask are ignored.
The following actual "ifconfig" programs are called
FreeBSD "/sbin/ifconfig %Iface% down"
Solaris "/sbin/ifconfig %Iface% down"
OpenBSD "/sbin/ifconfig %Iface% down"
Linux "/sbin/ifconfig %Iface% down"
OS X "/sbin/ifconfig %Iface% down"
MSWin32 nothing :(
Limitations:
MSWin32: I did not find the way to implement the 'up' command so I did not implement 'down'.
'+alias'
This function is used to set IPv4 alias address on interface. It have to be called as
Ifconfig('+alias', $IfaceName, $Addr, $Mask);
$IfaceName is an interface name as displayed by 'list' command
$Addr is an IPv4 address in the "AAA.AAA.AAA.AAA" notation
$Mask is an IPv4 subnet mask in the "MMM.MMM.MMM.MMM" notation
The following actual "ifconfig" programs are called
FreeBSD "/sbin/ifconfig %Iface% inet %Addr% netmask %Mask% alias"
Solaris "/sbin/ifconfig %Iface%:%Logic% inet %Addr% netmask %Mask% up"
OpenBSD "/sbin/ifconfig %Iface% inet %Addr% netmask %Mask% alias"
Linux "/sbin/ifconfig %Iface%:%Logic% inet %Addr% netmask %Mask% up"
OS X "/sbin/ifconfig %Iface% inet %Addr% netmask %Mask% alias"
MSWin32 "AddIPAddress" function from "IpHlpAPI.DLL"
First available logic interface is taken automatically for Solaris and Linux
'alias' Just a synonim for '+alias'
'-alias'
This function is used to remove IPv4 alias address from interface. It have to be called as
Ifconfig('-alias', $IfaceName, $Addr, '');
$IfaceName is an interface name as displayed by 'list' command
$Addr is an IPv4 address in the "AAA.AAA.AAA.AAA" notation
Netmask> parameter is ignored
The following actual "ifconfig" programs are called
FreeBSD "/sbin/ifconfig %Iface% inet %Addr% -alias"
Solaris "/sbin/ifconfig %Iface%:%Logic% down"
OpenBSD "/sbin/ifconfig %Iface% inet %Addr% -alias"
Linux "/sbin/ifconfig %Iface%:%Logic% down"
OS X "/sbin/ifconfig %Iface% inet %Addr% -alias"
MSWin32 "DeleteIPAddress" function from "IpHlpAPI.DLL"
Appropriate logic interface is obtained automatically for Solaris and Linux
On success "Ifconfig(...)" returns the defined value. Actually, it is a reference to the array contains the output of the actual
"ifconfig" program called.
In case of troubles "Ifconfig(...)" returns 'undef' value, $@ variable contains the error message.
EXPORT
None by default.
AUTHOR
Daniel Podolsky, <tpaba@cpan.org>
SEE ALSO
ifconfig(8), Internet Protocol Helper in Platform SDK.
perl v5.14.2 2012-01-19 Net::Ifconfig::Wrapper(3pm)