Sponsored Content
Full Discussion: Easy Perl Question
Top Forums Shell Programming and Scripting Easy Perl Question Post 302384511 by radoulov on Tuesday 5th of January 2010 02:40:13 PM
Old 01-05-2010
Code:
% print Service Transition - Service:jatthlink_jmsay_1 State:alive |
  perl -nle'print /Service:(.*?)State:/'                                          
jatthlink_jmsay_1

 

10 More Discussions You Might Find Interesting

1. UNIX for Dummies Questions & Answers

Easy question

Hi, Simple question. How do I convert a unix text file to a dos text file? Thanks Helen (4 Replies)
Discussion started by: Bab00shka
4 Replies

2. UNIX for Dummies Questions & Answers

easy question

I know the Sun Solaries versions are ( 2.3 , 2.4 , 2.5 ... 7 , 8 ) . But some times I see sun os v5.x what does it mean ?? also what is the last new machine for sun and what are its details specifications . Thanks (3 Replies)
Discussion started by: tamemi
3 Replies

3. UNIX for Dummies Questions & Answers

Another easy question

Hello Again, Ok guys. Thanks again for your help last time but I am in need of your experience again. I wrote this script: #!/bin/sh # List either files or directories in individual accounts # using 1, 2 or 3 with invalid case $1 in echo select 1 to see the FILES in your... (3 Replies)
Discussion started by: catbad
3 Replies

4. Shell Programming and Scripting

A easy question.

this is the simple question, please help me! the question is: how to send exactly 50 ICMP Echo request packets with 500 bytes of payload to 202.139.129.221? I tried to use ping -F 500 202.139.129.221, but it didn't work. Thanks! (6 Replies)
Discussion started by: kikikaka
6 Replies

5. UNIX for Dummies Questions & Answers

easy unix question

I am trying to check through all of a certain type of file in all main directories, and find the top 10 that are taking up the most space. How can I do that? I was thinking like du *.file | sort -n | head (1 Reply)
Discussion started by: wallacer
1 Replies

6. Shell Programming and Scripting

Hopefully an Easy Question

I have a file name in this format ABC_WIRE_TRANS_YYYYMMDD_00.DAT I need to cut out the _00 out of the file name everytime. It could be _00, _01,_02, etc .... How do I cut it out to look as follows? ABC_WIRE_TRANS_YYYYMMDD.DAT (6 Replies)
Discussion started by: lesstjm
6 Replies

7. UNIX for Dummies Questions & Answers

easy question

Hi everybody: Could anybody tell me if I have several files which each one it has this pattern name: name1.dat name2.dat name3.dat name4.dat name10.dat name11.dat name30.dat If I would like create one like: name_total.dat If I do: paste name*.dat > name_total.dat (15 Replies)
Discussion started by: tonet
15 Replies

8. Shell Programming and Scripting

Easy Perl regular expression question

Hey all! what matching expression might I use to match all characters included in \W, EXCEPT < and > ? for example: @tokens=split(/ ???? /,$string); I've dubiously tried \W but this clips off the first letter of each "token", for some reason ... (2 Replies)
Discussion started by: applefat
2 Replies

9. Shell Programming and Scripting

Easy if conditional question.

I'm just starting this whole scripting thing, and I'm trying to write a simple script which will ask the user to press a key between 3-7. If they press a key that's not between 3-7, it will tell the user such. Here's my script: #!/bin/bash blah=1 echo -n "Press a key from 3-7." read... (3 Replies)
Discussion started by: SlickStretch
3 Replies

10. Shell Programming and Scripting

awk easy question

So, I have the following code: cat testfile.txt | awk -F, '{ print $1" "$2" "$3" "$4" "$5 }' | read DOC ORG NAME echo "$DOC" echo "$ORG" echo "$NAME" My testfile.txt looks something like the following: Document Type,Project Number,Org ID,Invoice Number It will eventually be more... (14 Replies)
Discussion started by: Parrakarry
14 Replies
App::Nopaste::Service(3pm)				User Contributed Perl Documentation				App::Nopaste::Service(3pm)

NAME
App::Nopaste::Service - base class for nopaste services SYNOPSIS
package App::Nopaste::Service::Shadowcat; use base 'App::Nopaste::Service'; sub uri { "http://paste.scsys.co.uk/" } DESCRIPTION
"App::Nopaste::Service" defines a generic interface for uploading to nopaste sites. It provides a default interface to that of the POE Pastebot. METHODS
nopaste This is the outermost method called by App::Nopaste and other clients. You should not override this method, as it will (XXX: eventually) perform canonicalization of arguments (such as "lang") for you. run args -> (OK, message) This is the outermost method you should override. You'll be passed a hash of arguments. The only arguments you should pay attention to are: text The body of text to paste. desc A short (one-line) summary of the paste. nick The name of the person performing the paste. chan The IRC channel to which the paste belongs. lang The programming language of the body of text. private If false, the paste will be public (default). get mech, args This should "get" the form to paste using the provided WWW::Mechanize object. By default it does just that. See "uri" below. uri If you only need to call "mech->get(uri)" then you may define this method to provide the URI of the nopaste service. fill_form mech, args This should have the WWW::Mechanize fill in the form using the arguments, and submit it. return mech, args This should look at "WWW::Mechanize->content" to find the URI to the pasted text. AUTHOR
Shawn M Moore, "<sartak at gmail.com>" perl v5.14.2 2011-08-22 App::Nopaste::Service(3pm)
All times are GMT -4. The time now is 05:16 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy