02-04-2012
Thanks for responding Bartus11, I tried running your code, it gives me the following error.
$# is no longer supported at -e line 1.
Number found where operaor expected at -e line 1, near "$#1"
Now if I remove the # from the condition statement, there is no error, but the file remains the same, am I missing something here?
Thanks for the response.
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
hi
previously this program used to ask for user input to perform operation so
i have done the modifications but problem is that i have to create new file and redirect that file as input to this file and i want to avoid that so i made following modifications in program and i am not sure if its... (1 Reply)
Discussion started by: zedex
1 Replies
2. Shell Programming and Scripting
#! /usr/local/bin/perl -w
$ip = "$ARGV";
$rw = "$ARGV";
$snmpg = "/usr/local/bin/snmpbulkget -v2c -Cn1 -Cn2 -Os -c $rw";
$snmpw = "/usr/local/bin/snmpwalk -Os -c $rw";
$syst=`$snmpg $ip system sysName sysObjectID`;
sysDescr.0 = STRING: Cisco Internetwork Operating System Software... (1 Reply)
Discussion started by: popeye
1 Replies
3. Shell Programming and Scripting
Hi All,
Windows Platform. Perl Scripting.
I have a file called 'hostnames.txt' contains hostname entries one by one line.
Script has to perform the following command for each entry in that file.
ovtopofix -G <hostname>
Please anybody give me the script on this requirement.
Thanks,... (1 Reply)
Discussion started by: ntgobinath
1 Replies
4. UNIX for Advanced & Expert Users
I am trying to upload a file to a SQL database table. The column type is IMAGE. I am looking for a solution to upload a word doc file. I tried 3 approaches.
1) my $fileToStore = "mytest.doc";
open IPFILE, "<", $name;
binmode IPFILE;
while (<IPFILE>)
{
$fileToStore .= $_;
}
close IPFILE;... (1 Reply)
Discussion started by: b.paramanatti
1 Replies
5. Shell Programming and Scripting
Hi,
I have a string in log file from that i need to pick the username.
the string is like this--
pid 2172 tid 3124: 160: 10110847: userName :
pid 2172 tid 3124: 160: 10110847: userName :
pid 2172 tid 3124: 160: 10110847: userName :
pid 2172 tid 3124: 160: 10110847: userName :
pid... (5 Replies)
Discussion started by: namishtiwari
5 Replies
6. Shell Programming and Scripting
So i'm trying to write a perl script that logins into a network switch via ssh:
#sh ip traffic
IP statistics:
Rcvd: 1460119147 total, 563943377 local destination
0 format errors, 0 checksum errors, 48401998 bad hop count
0 unknown protocol, 8379279 not a gateway
... (2 Replies)
Discussion started by: streetfighter2
2 Replies
7. Shell Programming and Scripting
Hi Members, I am stuck with the following problem. Request your kind help
I have an csv file which contains, 1 header record, data records and 1 footer record. Sample is as below
Contents of cm_update_file_101010.csv
--------------------------------------------------
... (6 Replies)
Discussion started by: ramakanth_burra
6 Replies
8. Shell Programming and Scripting
Hello,
My requirement is to iterate over all the lines of a file and compare them with a word and perform some operations if exact match is found.
For the snippet below, it works even if contents of line include "diff" and "diff:". I want it to work only if it is exactly "diff" and is not... (2 Replies)
Discussion started by: sarbjit
2 Replies
9. Shell Programming and Scripting
I have following result.log file (always has 2 lines) which I need to process,
cat result.log
name.cmd.method,"result","abc","xyz";
name="hello,mine.12345,"&"tree"&" xyz "&" tree "&" xyz",
data="way,"&" 1"&"rate-me"&"1"&"rate-me",str="",ret="";
now I need to extract the strings/data as... (4 Replies)
Discussion started by: perlDiva
4 Replies
10. Shell Programming and Scripting
I need to parse text between xml tags using xsltproc. It seems the easiest way.
Here the Input file looks like
<?xml version="1.0" ?>
- <tag:ROOT xmlns:as="http://some.org/some.xsd" xmlns:tag="http://www.tag.org/schemas" xmlns:xs="http://some.org/">
- <tag:L1>
- <tag:L2>
- <tag:L3> ... (2 Replies)
Discussion started by: alpha_1
2 Replies
LEARN ABOUT DEBIAN
app::clusterssh::host
App::ClusterSSH::Host(3pm) User Contributed Perl Documentation App::ClusterSSH::Host(3pm)
NAME
ClusterSSH::Host - Object representing a host.
SYNOPSIS
use ClusterSSH::Host;
my $host = ClusterSSH::Host->new({
hostname => 'hostname',
});
my $host = ClusterSSH::Host->parse_host_string('username@hostname:1234');
DESCRIPTION
Object representing a host. Include details to contact the host such as hostname/ipaddress, username and port.
METHODS
$host=ClusterSSH::Host->new ({ hostname => 'hostname' })
Create a new host object. 'hostname' is a required arg, 'username' and 'port' are optional. Raises exception if an error occurs.
$host->get_hostname
$host->get_username
$host->get_port
$host->get_master
Return specific details about the host
$host->set_username
$host->set_port
$host->set_master
Set specific details about the host after its been created.
get_realname
If the server name provided is not an IP address (either IPv4 or IPv6) attempt to resolve it and retun the discovered names.
get_givenname
Alias to get_hostname, for use when " get_realname " might return something different
parse_host_string
Given a host string, returns a host object. Parses hosts such as
check_ssh_hostname
Check the objects hostname to see whether or not it may be configured within the users $HOME/.ssh/config configuration file
host
192.168.0.1
user@host
user@192.168.0.1
host:port
[1234:1234:1234::4567]:port
1234:1234:1234::4567
and so on. Cope with IPv4 and IPv6 addresses - raises a warning if the IPv6 address is ambiguous (i.e. in the last example, is the
4567 part of the IPv6 address or a port definition?) and assumes it is part of address. Use brackets to avoid seeing warning.
AUTHOR
Duncan Ferguson, "<duncan_j_ferguson at yahoo.co.uk>"
LICENSE AND COPYRIGHT
Copyright 1999-2010 Duncan Ferguson.
This program is free software; you can redistribute it and/or modify it under the terms of either: the GNU General Public License as
published by the Free Software Foundation; or the Artistic License.
See http://dev.perl.org/licenses/ for more information.
perl v5.14.2 2012-06-24 App::ClusterSSH::Host(3pm)