12-17-2007
Friend
I will tell it
1) Read command line argument (for the given Perl script). ( Command Line argument will be a file name)
2) Check existence of the file name in "file" . That i tried to do here open (DATA,"+>>file") || die ("OOOps");
#Open "file"
while (<DATA>) {
$f_name .= $_;
}
@check = split(/ /,$f_name);
#store the contents of "file" to @check.
print "@check\n";
foreach $check (@check) {
while ($check == @ARGV) {
print "Already processed\n";
exit;
}
#Check the presence of file name in @check.
3) if the file npresent in @check then exit
4)Else exicute other programs
Now it 1-3 is not wotking .
Jagan
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
All
I want to call a perl program from my shell script. Please help me. I want to call through URL only. Like " http://www.test.com/CGI-bin/test?test=value"
Please help to write this script. Thanx in advance.
Thanking you
Regards
Deepak Xavier (0 Replies)
Discussion started by: DeepakXavier
0 Replies
2. Shell Programming and Scripting
My I/p FIle
#%npr
#
{
{
collectionBeginTime_Date 19Jul2007
granularityPeriod 900
NODEID BSC19
RLC_Raw_Blocksize_CS2 2048
START_DATE 19Jul07
measTimeStamp_Date 20Jul2007
COLLECTION_INTERVAL_MINS 15
RLC_User_Blocksize_CS2 1024
... (1 Reply)
Discussion started by: aajan
1 Replies
3. Shell Programming and Scripting
I am having the autosys script for the perl as follows
#!/usr/bin/perl
print "Welcome to Autosys Ice Script\n";
print "Please enter the Environment (UAT PRD TRN ST DEV ALL):\n";
$environment = <STDIN>;
chomp($environment);
print "Please enter the Action (ON_ICE OFF_ICE):\n";
$action =... (0 Replies)
Discussion started by: shellscript22
0 Replies
4. Shell Programming and Scripting
my $number = 12.345673412 I need 3 digits after decimal or after dot(.)
i mean , i need only 12.345
I used int(), ceil(), floor() but it gives me only 12
I need it. (10 Replies)
Discussion started by: pritish.sas
10 Replies
5. Shell Programming and Scripting
Hi,
Can anyone help me to replace ='is NOT NULL' to is NOT NULL in perl.
I tried all the methods which i know, i didnt arrive at the solution.
please help!!
---------- Post updated at 03:01 PM ---------- Previous update was at 02:56 PM ----------
I got it.......!
Thanks, (1 Reply)
Discussion started by: jam_prasanna
1 Replies
6. Shell Programming and Scripting
From the attached file I to need pick all rows that have AVG2 column value larger than 0.050, and write those values in to a separate file. Help me on how I pick the approp value & output them onto a file.
Very Thanks in advance. :b: (5 Replies)
Discussion started by: tonystark
5 Replies
7. UNIX for Dummies Questions & Answers
Hey Guys,
I'm hoping this is the right section.I am using a centos server. I was installing modules in perl when one got stuck in the installation and from there onwards I was having problems installing cpan modules using perl.
I figured I'll reinstal perl (I SHOULDNT HAVE). So I went ahead... (2 Replies)
Discussion started by: zee3b
2 Replies
8. Post Here to Contact Site Administrators and Moderators
Hi
This is very urgent as it is confidential info posted by mistake.Kindly help us asap.
post link below:
https://www.unix.com/shell-programming-and-scripting/201037-perl-while-loop-each.html
please replace the perl script with following script in the post
... (1 Reply)
Discussion started by: ptappeta
1 Replies
9. Shell Programming and Scripting
I am trying to write a shell script which takes an input file as an arguement in the terminal e.g. bash shellscriptname.sh input.txt. I would like for the file to be read line by line each time checking if the .txt file contains certain words or letters(validating the syntax). If the line being... (1 Reply)
Discussion started by: Gurdza32
1 Replies
10. Programming
I have reviewed many examples on-line about running another process (either PERL or shell command or a program), but do not find any usefull for my needs way. (Reviewed and not useful the system(), 'back ticks', exec() and open())
I would like to run another PERL-script from first one, not... (1 Reply)
Discussion started by: alex_5161
1 Replies
LEARN ABOUT DEBIAN
net::epp::frame::command::check::contact
Net::EPP::Frame::Command::Check::Contact(3pm) User Contributed Perl Documentation Net::EPP::Frame::Command::Check::Contact(3pm)
NAME
Net::EPP::Frame::Command::Check::Contact - an instance of Net::EPP::Frame::Command::Check for contact objects.
SYNOPSIS
use Net::EPP::Frame::Command::Check::Contact;
use strict;
my $check = Net::EPP::Frame::Command::Check::Contact->new;
$check->addContact('contact-id-01');
$check->addContact('contact-id-02');
$check->addContact('contact-id-03');
print $check->toString(1);
This results in an XML document like this:
<?xml version="1.0" encoding="UTF-8"?>
<epp xmlns="urn:ietf:params:xml:ns:epp-1.0"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
xsi:schemaLocation="urn:ietf:params:xml:ns:epp-1.0
epp-1.0.xsd">
<command>
<check>
<contact:check
xmlns:contact="urn:ietf:params:xml:ns:contact-1.0"
xsi:schemaLocation="urn:ietf:params:xml:ns:contact-1.0
contact-1.0.xsd">
<contact:id>contact-id-01E<lt>/contact:id>
<contact:id>contact-id-02E<lt>/contact:id>
<contact:id>contact-id-03E<lt>/contact:id>
</contact:check>
</check>
<clTRID>0cf1b8f7e14547d26f03b7641660c641d9e79f45</clTRIDE<gt>
</command>
</epp>
OBJECT HIERARCHY
L<XML::LibXML::Node>
+----L<XML::LibXML::Document>
+----L<Net::EPP::Frame>
+----L<Net::EPP::Frame::Command>
+----L<Net::EPP::Frame::Command::Check>
+----L<Net::EPP::Frame::Command::Check::Contact>
METHODS
$frame->addContact($contact_id);
This adds a contact ID to the list of contacts to be checked.
AUTHOR
CentralNic Ltd (http://www.centralnic.com/).
COPYRIGHT
This module is (c) 2012 CentralNic Ltd. This module is free software; you can redistribute it and/or modify it under the same terms as Perl
itself.
SEE ALSO
o Net::EPP::Frame
perl v5.14.2 2012-04-23 Net::EPP::Frame::Command::Check::Contact(3pm)