02-07-2011
Thank to all who responded.
Appreciate your help.
I have just one issue with the approach given -
As indicated in the original post I need the string(s) (string or strings) having the least number of %'s.
Please advise/suggest on having the list of strings/string which have/has the least number of %'s.
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
I have a perl script with an array of clients.
@arr = ("The ABC Corp", "AA Corp.", "BB Corp");
If I run
@a = sort (@arr);
I will get
@a = ("AA Corp", "BB Corp", "The ABC Corp");
but I want
@a = ("AA Corp, "The ABC Corp", "BB Corp");
How do I sort array without changing... (2 Replies)
Discussion started by: photon
2 Replies
2. Shell Programming and Scripting
Dear all
There is a file which contains the following formatted files. I need to sort it by substring(strings after dot) in order to process efficiently.
Please give me any idea how to sort it.
Sample file:
1AAABBBCCC.20080401
1AAABBBCCC.20080402
2AAABBBCCC.20080401... (3 Replies)
Discussion started by: mr_bold
3 Replies
3. Shell Programming and Scripting
Hi Folks,
The subject is my question:
Can we pass an array of strings from a Perl Program to a Shell Script?
Please provide some sample code.
Thanks
---------- Post updated at 11:52 PM ---------- Previous update was at 11:43 PM ----------
I got it.
Its here:... (0 Replies)
Discussion started by: som.nitk
0 Replies
4. UNIX for Dummies Questions & Answers
Hey
How do I sort an array numerically after the second column?
My values are integers like 1, 2, 3, 4... and they are not unique, so I can't just reverse my hash and sort by keys.
I wanna sort my file/array so that I get the lines with the highest value in the top - that is descending. ... (2 Replies)
Discussion started by: Banni
2 Replies
5. Shell Programming and Scripting
Hi Everyone,
Any simple code can simplify the code below, please advice. Thanks
# cat 2.pl
#!/usr/bin/perl
use warnings;
use strict;
my @aaaaa = <DATA>;
my @uids;
foreach (@aaaaa) {
my @ccccc = split (",", $_);
push @uids, $ccccc;... (3 Replies)
Discussion started by: jimmy_y
3 Replies
6. UNIX for Dummies Questions & Answers
People, I need your help with making a script which will
1. take as an input the number of lines, smth like this:
((RUBROBACTER_1_PE1288
(((SALINISPORA_1_PE1863
SALINISPORA_1_PE1828)100
((NOCARDIOIDES_2_PE2419
PROPIONIBACTERIUM_1_PE1395)96
((((((((CORYNEBACTERIUM_1_PE1119... (3 Replies)
Discussion started by: roussine
3 Replies
7. Shell Programming and Scripting
Hello ,
I need some help to pull the data from different files, simultaneously for the string provided.
I want to search below strings.
PTN:3763427632478
IDB:3298734287438
PTN:8734983298738
From the files BELOW
CODE_FILE_LOG1
CODE_FILE_LOG2
CODE_FILE_LOG3
CODE_FILE_LOG4 (3 Replies)
Discussion started by: baraghun
3 Replies
8. UNIX for Dummies Questions & Answers
Hi,
I tried to adapt bartus's solution to my problem, without success. I want to replace all the occurences of this:
with:
, where something can contain an arbitrary number of balanced parens and brakets.
Any ideas ?
Best, (1 Reply)
Discussion started by: ff1969ff1969
1 Replies
9. Linux
file:///C:/Users/TSHEPI%7E1.LEB/AppData/Local/Temp/moz-screenshot.pngATM@ubuntu:~$ cat numbers2 | sort -n | uniq -c
1
7 1
11 2
10 3
the 1st numbers are the counts from the command "uniq -c", which represent the number of occurrences of each in the file. The "sort -n"... (4 Replies)
Discussion started by: lebogot
4 Replies
10. Shell Programming and Scripting
Hi I have the server.log file as:
Server Stopped
ABC
DEF
GHI
JKL
Server Started
MNO
PQR
STU
Server Stopped
VWX
YZ
ABC
Server Started
Server Stopped
123
456
789 (9 Replies)
Discussion started by: ankur328
9 Replies
LEARN ABOUT DEBIAN
log::agent::message
Agent::Message(3pm) User Contributed Perl Documentation Agent::Message(3pm)
NAME
Log::Agent::Message - a log message
SYNOPSIS
require Log::Agent::Message;
my $msg = Log::Agent::Message->make("string");
$msg->prepend("string");
$msg->append("string");
my $copy = $msg->clone;
print "Message is $msg
"; # overloaded stringification
DESCRIPTION
The Log::Agent::Message class represents an original log message (a string) to which one may prepend or append other strings, but with the
special property that prepended strings aggregate themselves in FIFO order, whilst appended strings aggregate themselves in LIFO order,
which is counter-intuitive at first sight.
In plain words, this means that the last routine that prepends something to the message will get its prepended string right next to the
original string, regardless of what could have been prepended already. The behaviour is symetric for appending.
INTERFACE
The following routines are available:
append($str)
Append suppled string $str to the original string (given at creation time), at the head of all existing appended strings.
append_last($str)
Append suppled string $str to the original string (given at creation time), at the tail of all existing appended strings.
clone
Clone the message. This is not a shallow clone, because the list of prepended and appended strings is recreated. However it is not a
deep clone, because the items held in those lists are merely copied (this would matter only when other objects with overloaded
stringification routines were supplied to prepend() and append(), which is not the case today in the basic Log::Agent framework).
make($string)
This is the creation routine.
prepend($str)
Prepend supplied string $str to the original string (given at creation time), at the tail of all existing prepended strings.
prepend_first($str)
Prepend supplied string $str to the original string (given at creation time), at the head of all existing prepended strings.
stringify
This is the overloaded "" operator, which returns the complete string composed of all the prepended strings, the original string, and
all the appended strings.
AUTHOR
Raphael Manfredi <Raphael_Manfredi@pobox.com>
SEE ALSO
Log::Agent(3).
perl v5.10.0 2002-03-09 Agent::Message(3pm)