10-26-2008
Regular expressions - Perl
Hello everybody,
I am trying to connect from hp-ux to win 2003 using perl's Net::Telnet module. Seeing the examples in couple of web sites, I saw I have to declare a Prompt =>
Can somebody please tell me what my regular expression should be? The prompt after I log in is:
...
login: whatever
password:
*===============================================================
Welcome to Microsoft Telnet Server.
*===============================================================
C:\Documents and Settings\whatever>
Also following this example:
use Net::Telnet;
$telnet = new Net::Telnet ( Timeout=>10,
Errmode=>'die');
$telnet->open('camel.perlfect.com');
$telnet->waitfor('/login: $/i');
...
Can someone tell me should I write after $telnet->waitfor('/login: ? This $/i is matching every input or it also has something to do with the specific prompt? Can you please tell me what should I write in my case?
Thank you in advance!
~whatever
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
I am writing script that will act like the 'comm' utility. My
problem is when trying to read whether the user has entered -123 or -1
or -1...etc.
I currently have:
if(m/??/g){
print "Good.\n";
}
So, this should check for all... (1 Reply)
Discussion started by: DrRo183
1 Replies
2. UNIX for Dummies Questions & Answers
how to find for a file whose name has all characters in uppercase after 'project'?
I tried this:
find . -name 'project**.pdf'
./projectABC.pdf
./projectABC123.pdf
I want only ./projectABC.pdf
What is the regular expression that correponds to "all characters are capital"?
thanks (8 Replies)
Discussion started by: melanie_pfefer
8 Replies
3. UNIX for Dummies Questions & Answers
Hello,
$line=USING (FILE '/TEST1/FILENAME'5000)
I want to reterive the value between ' and ) which is 5000 here.
i have tried out the following expressions ...
Type 1 : $Var1=`sed -e 's/.*\' //' -e 's\).*$/' $line`;
Type 2 : $Var1=`echo $line | awk -F"\'" '{print $2}' | awk -F"\\)"... (1 Reply)
Discussion started by: maxmave
1 Replies
4. Shell Programming and Scripting
Hello,
$line=USING (FILE '/TEST1/FILENAME'5000)
I want to reterive the value between ' and ) which is 5000 here.
i have tried out the following expressions ...
Type 1 : $Var1=`sed -e 's/.*\' //' -e 's\).*$/' $line`;
Type 2 : $Var1=`echo $line | awk -F"\'" '{print $2}' | awk -F"\\)"... (3 Replies)
Discussion started by: maxmave
3 Replies
5. Shell Programming and Scripting
Hello guys/gals,
i am sorry as this is probably very simply but i am slowly learning perl and need to convert some old korn shell scripts.
I need to be able to search a file line by line but only match a string at particular location on that line, for example character 20-30. So my file... (4 Replies)
Discussion started by: dynamox
4 Replies
6. Shell Programming and Scripting
i have a set of regular expressions. The words in the regular expression should be used to replace the i/p with hyphens '---'. i need perl script to evaluate these regular expression. the words in the regexes when found in the i/p file should be replaced with hyphens '---'.
the set of regular... (3 Replies)
Discussion started by: Sgiri1
3 Replies
7. Shell Programming and Scripting
Take a look at this code:
#!/usr/bin/perl
use 5.008;
$_ = "somename@address.com";
if(/\@\w+\.com/)
{
print "\n\nmight be an email address\n\n";
}
else
{
print "\n\nnot an email address\n\n";
}
Shouldn't the /\@\w+\.com/ evaluate as true? I've also tried:
... (3 Replies)
Discussion started by: mrwatkin
3 Replies
8. Programming
Hello all,
i am in a bit of dilema here. i dont know any thing about perl or python. only know a little bit of awk. now unable to take a decission as to which language to go for. my requirement is building a testing framework.suite which will execute ssytem comands remotely on unix... (2 Replies)
Discussion started by: achak01
2 Replies
9. Shell Programming and Scripting
Hi Team,
I have two strings like:
xxx|yyy|Arizona Cardinals| Tell Cardinals | Cardinals
bbb|Bell Earn, Jr | Bell Earn | Jayhawks | hawks
I have a lookup file which has a set of strings. These need to be removed from above two strings
Lookup file Contents:
Bell Earn, Jr
hawks... (2 Replies)
Discussion started by: forums123456
2 Replies
10. Shell Programming and Scripting
im trying to extract some tags between and in a file..for eg..the file format is
I want the and extracted from the file i.e the tags which is present b/w and
I have the regex for extracting the tags from the whole file but how to specify my search within the and... (1 Reply)
Discussion started by: rajkrishna89
1 Replies
LEARN ABOUT DEBIAN
net::inet6glue
Net::INET6Glue(3pm) User Contributed Perl Documentation Net::INET6Glue(3pm)
NAME
Net::INET6Glue - Make common modules IPv6 ready by hotpatching
SYNOPSIS
use Net::INET6Glue; # include all glue
use LWP;
use Net::SMTP;
use Net::FTP;
..
DESCRIPTION
Net::INET6Glue is a collection of modules to make common modules IPv6 ready by hotpatching them.
Unfortunatly the current state of IPv6 support in perl is that no IPv6 support is in the core and that a lot of important modules (like
Net::FTP, Net::SMTP, LWP,...) do not support IPv6 even if the modules for IPv6 sockets Socket6, IO::Socket::INET6 are available.
This module tries to mitigate this by hotpatching. Currently the following submodules are available:
Net::INET6Glue::INET_is_INET6
Makes IO::Socket::INET behave like IO::Socket::INET6, especially make it capable to create IPv6 sockets. This makes LWP, Net::SMTP and
others IPv6 capable.
Net::INET6Glue::FTP
Hotpatches Net::FTP to support EPRT and EPSV commands which are needed to deal with FTP over IPv6. Also loads
Net::INET6Glue::INET_is_INET6.
COPYRIGHT
This module and the modules in the Net::INET6Glue Hierarchy distributed together with this module are copyright (c) 2008, Steffen Ullrich.
All Rights Reserved. These modules are free software. They may be used, redistributed and/or modified under the same terms as Perl itself.
perl v5.12.3 2011-08-27 Net::INET6Glue(3pm)