Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: Perl command help needed
Top Forums Shell Programming and Scripting Perl command help needed Post 302445870 by linuxkid on Tuesday 17th of August 2010 05:15:27 AM
Old 08-17-2010
Error Perl command help needed
Code:
#!/bin/bash
perl -nle'
  /(?:date|time|ref)/ and print join " ", /(?:date|time|ref)[\w-]+/g      
    or print     
    ' inputfile

Problem I have is that I want to delete words that are on the line of the 3 words above (date, time, and reference). However, I do not want to delete the words which contain these words, just the ones that are on the line with it!

Code:
date-01/01/01 hello
time-2110 hello
ref/0001 hello
this should remain
this should remain

should give
Code:
date-01/01/01 
time-2110 
ref/0001 
this should remain
this should remain

but gives
Code:
date-01/01/01 
time-2110 
 
this should remain
this should remain

as it deletes the word if it contains '/'. Any help! Thanks!
 

10 More Discussions You Might Find Interesting

1. AIX

Perl.rte needed..

Hello I was installing ssh in Aix 4.3 but found that "perl.rte and rpm.rte" was not installed. but to my bad luck i was not able to find these packages for Aix 4.3. Ibm site just has these packages only for 5L. Can anyone help me in finding these packages. Bala (1 Reply)
Discussion started by: balaji_prk
1 Replies

2. Shell Programming and Scripting

Perl - help needed

Hi all, I'm a rookie in Perl scripting, and I have a task to do. Generally it's something like that: I have a reference file consisting of a number and name, tab-separated. One entry in one line, about 99 lines in file. The other file is an XML log file, where in one specific branch, eg.... (8 Replies)
Discussion started by: tklich
8 Replies

3. Shell Programming and Scripting

Help Needed Perl

Hi, I need your help on this script wherein I am matching up the input phone numbers for a partical pattern (xxx-xxxx). However in this I want to have null output where first value of input is null. ( For Example: $record = " ,111-5555") . Ideally I would expect to recieve input in this format... (6 Replies)
Discussion started by: john_prince
6 Replies

4. Shell Programming and Scripting

Perl Script Help Needed

I need this script to be able to check both IPs that are given to it and exit with an OK... if one of those expected IPs is returned. The script is run like this: /bin/dns_checker.pl -s 69.34.55.66 -q htt.jababa.com -e 69.44.56.33,45.47.43.55 Right now, the script is failing, but when I... (4 Replies)
Discussion started by: SkySmart
4 Replies

5. Shell Programming and Scripting

Perl script help needed..

Hi, I am new to perl scripting. Can anybody help me in solving the below problem. I have file, which is called map_file. According to map_file's last column data, i need a output file, which has repeats as like the map_file's last column name. Thank you in advance Vasanth (5 Replies)
Discussion started by: vasanth.vadalur
5 Replies

6. Shell Programming and Scripting

Perl script needed

For the following command I need a perl script equivalent with a couple of more things - cat /tmp/mail |grep Appname > /tmp/mail1;cat /tmp/mail >> /tmp/mail1; mail -s "mail subject here" allan@mail.com < /tmp/mail1; >/tmp/mail ; >/tmp/mail1 ================== cat /tmp/mail ***** Alert *****... (4 Replies)
Discussion started by: jacki
4 Replies

7. Shell Programming and Scripting

Help needed with Perl Script

i have the following script: #!/usr/local/bin/perl use STUN::Client; use Data::Dumper; use strict; my $stun_client = STUN::Client->new; $stun_client->stun_server('10.59.29.14'); my $r = $stun_client->get; my $ip = $r->{ma_address}; print "IP: $ip\n\nResult (hash):... (5 Replies)
Discussion started by: SkySmart
5 Replies

8. Shell Programming and Scripting

fgrep command: Perl programming help needed..Kindly advise

Hi, I am novice in PERL enviornment. I have a text files withso many entries in rows and columns. I have to pick up entries named as "Uniprot ID" in the file and create a new text file with list of particular Uniprot ID entries. Can anybody guide regarding this.. I came to know abut fgrep... (1 Reply)
Discussion started by: manigrover
1 Replies

9. Shell Programming and Scripting

perl regex help needed

Hi, I want to validate strings in perl, the string may contains characters from a-zA-Z0-9 and symbols +-_.:/\ To validate such a string I computed a regex if ($string =~ m/^/) { print "valid"; } else { print "invalid"; } but this regex also validates strings that contain... (8 Replies)
Discussion started by: zing_foru
8 Replies

10. Shell Programming and Scripting

PERL help needed

Hi, I will be asking a series of major newbie questions, and you help is greatly appreciated in advance!! I have to write a script that will parse a logfile in a directory, the directory name changes daily. So far I have: #!/usr/bin/perl open LOGFILE,">logfile.txt"; ($day, $month,... (3 Replies)
Discussion started by: BG_JrAdmin
3 Replies

LEARN ABOUT DEBIAN

net::google::code::issue::comment

Net::Google::Code::Issue::Comment(3pm)			User Contributed Perl Documentation		    Net::Google::Code::Issue::Comment(3pm)

NAME

       Net::Google::Code::Issue::Comment - Issue's Comment

DESCRIPTION

ATTRIBUTES

       project
	   project name

       email, password
	   user's email and password

       issue_id
       sequence
	   sequence number, initial comment( when you create an issue ) has sequence 0

       date
       content
       author
       updates
	   HashRef that reflects updates

       attachments

INTERFACE

       parse( HTML::Element or html segment string )
	   parse format like the following:

	    <td class="vt issuecomment">

	    <span class="author">Comment <a name="c18"
	    href="#c18">18</a>
	    by
	    <a href="/u/jsykari/">jsykari</a></span>,
	    <span class="date" title="Wed Sep  3 04:44:39 2008">Sep 03, 2008</span>
	   <pre>
	   <b>haha</b>

	   </pre>

	    <div class="attachments">

	    <table cellspacing="0" cellpadding="2" border="0">
	    <tr><td rowspan="2" width="24"><a href="http://chromium.googlecode.com/issues/attachment?aid=-1323983749556004507&amp;name=proxy_settings.png" target="new"><img width="16" height="16" src="/hosting/images/generic.gif" border="0" ></a></td>
	    <td><b>proxy_settings.png</b></td></tr>
	    <tr><td>14.3 KB

	    <a href="http://chromium.googlecode.com/issues/attachment?aid=-1323983749556004507&amp;name=proxy_settings.png">Download</a></td></tr>
	    </table>

	    </div>

	    <div class="updates">
	    <div class="round4"></div>
	    <div class="round2"></div>
	    <div class="round1"></div>
	    <div class="box-inner">
	    <b>Cc:</b> thatan...@google.com<br><b>Status:</b> Available<br><b>Labels:</b> Mstone-X<br>
	    </div>
	    <div class="round1"></div>
	    <div class="round2"></div>
	    <div class="round4"></div>
	    </div>

	    </td>

       list
	   google's api way to get list of comments return a list of loaded( no scraping is done here ) comments in list context, a ref to the
	   list otherwise.

       parse_hybrid
	   when $Net::Google::Code::Issue::USE_HYBRID is true, we will try to load comments with the google's official api, but as the api is not
	   complete, we still need to do scraping to load something( e.g. attachments ), this method is used to do this.

AUTHOR

       sunnavy	"<sunnavy@bestpractical.com>"

LICENCE AND COPYRIGHT

       Copyright 2008-2010 Best Practical Solutions.

       This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

perl v5.10.1							    2010-04-07				    Net::Google::Code::Issue::Comment(3pm)
All times are GMT -4. The time now is 02:46 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy