Thanks for your sharing. I appreciate and learn from that method. Meantime, I manage to achieve what I am trying to get, by using sed command however the record in last field , I should put "_" underscore, because spaces always bring treat as delimiter. To share, see below:
With this record:
Result are:
Space is still my riddle, how to figure it out. Above is only a workaround.
Thanks
Last edited by Scott; 10-03-2012 at 07:52 AM..
Reason: Please use code tags
I am accessing two files. I am using read command to read from the files.
For the first file, I need read the fields delimited by spaces, and for the other file, I need to read the whole line as a single field including the spaces.
When I used read command for the second file, the spaces... (4 Replies)
I need to tweek my awk output:
#cat filename
ab cd ef:ghi:jk lm:nop qrs
#cat filename | awk '{ for(i=3;i<NF+1;i++) printf $i}'
ef:ghi:jklm:nopqrs
I would like the ouput to include the original spaces from columns 3 on:
ef:ghi:jk lm:nop qrs
any suggestions? (4 Replies)
Hi All,
I have a script that reads a file and echo it back to std out.
Test.txt
1aaaaaaaaaaa .
The script is ReadLine.sh
#!/bin/ksh
cat $1 | while read file
do
echo $file
done
I invoke the script as ReadLine.sh Test.txt
The output that I get is (1 Reply)
Hi All,
file_1.txt contains
aaa bbbb hhhh
vvvvv mmmmm iiiii
What i want is to search for the first coloumn of each line using awk.i.e as below:
awk '/aaa/ {printf(<>)}' file_1.txt
The print part (<>) should contain all the values(or coloumns ) in the particular line(here it... (8 Replies)
Hi,
I'm trying to print every line from first field to the fourth from a file containing more.
$ cat input
a b c d e f g
a b c d e f gI'm trying
awk '{for (i=1; i <= NF-3; i++) print $i}' awkTest.datbut it printsa
b
c
d
a
b
c
dSo, I easily guess I'm wrong. :)
Of course, I want:a b... (5 Replies)
Hello all,
I want to list the file contents of the directory and number them. I am using la and awk to do it now,
#ls |awk '{print NR "." $1}'
1. alpha
2. beta
3. gamma
The problem I have is that some files might also have some spaces in the filenames.
#ls
alpha beta gamma ... (7 Replies)
When I use:
find . -ls | awk 'BEGIN { OFS = ";"} {print $1,$2,$11}'I get a nice result, yet the files with spaces in it show only the first word and all other characters after the blank space are not printed.
e.g. 'file with a blank space'
is printed
file
'file_with a blank space'
is... (7 Replies)
Hi,
I'm using awk to print columns from a tab delimited text file:
awk '{print " "$2" "$3" $6"}' file
The problem I have is column 6 contains text with spaces etc which means awk only prints the first word.
How can I tell awk to print the whole column content as column 6?
Thanks, (10 Replies)
Hi,
In a csv file, I want to select records where first column has zero or multiple spaces.
Eg: abc.csv
,123,a
,22,b
,11,c
a,11,d
So output should be:
,123,a
,22,b
,11,c
Please advise (5 Replies)
Hi all,
I want to set 10 set of strings into a variable where:
removing all spaces within each string
change the delimiter from "|" to ","
Currently, I've the below script like this:Table=`ten character strings with spaces in-between and each string with delimiter "|" | tr -d ' ' |... (7 Replies)
Discussion started by: o1283c
7 Replies
LEARN ABOUT DEBIAN
test::email
Test::Email(3pm) User Contributed Perl Documentation Test::Email(3pm)NAME
Test::Email - Test Email Contents
SYNOPSIS
use Test::Email;
# is-a MIME::Entity
my $email = Test::Email->new(@lines);
# all-in-one test
$email->ok({
# optional search parameters
from => ($is or qr/$regex/),
subject => ($is or qr/$regex/),
body => ($is or qr/$regex/),
headername => ($is or qr/$regex/),
}, "passed tests");
# single-test header methods
$email->header_is($header_name, $value, "$header_name matches");
$email->header_ok($header_name, $value, "$header_name matches");
$email->header_like($header_name, qr/regex/, "$header_name matches");
# single-test body methods
$email->body_is($header_name, $value, "$header_name matches");
$email->body_ok($header_name, $value, "$header_name matches");
$email->body_like($header_name, qr/regex/, "$header_name matches");
# how many MIME parts does the messages contain?
$email->parts_ok($parts_count, "there were $parts_count parts found");
# what is the MIME type of the firs part
my @parts = $email->parts(); # see MIME::Entity
$parts[0]->mime_type_ok('test/html', 'the first part is type text/html');
DESCRIPTION
Please note that this is ALPHA CODE. As such, the interface is likely to change.
Test::Email is a subclass of MIME::Entity, with the above methods. If you want the messages fetched from a POP3 account, use Test::POP3.
Tests for equality remove trailing newlines from strings before testing. This is because some mail messages have newlines appended to them
during the mailing process, which could cause unnecessary confusion.
This module should be 100% self-explanatory. If not, then please look at Test::Simple and Test::More for clarification.
METHODS
"my $email = Test::Email->new($lines_aref);"
This is identical to "MIME::Entity->new()". See there for details.
"$email->ok($test_href, $description);"
Using this method, you can test multiple qualities of an email message with one test. This will execute the tests as expected and will
produce output just like "Test::Simple::ok" and "Test::More::ok". Keys for $test_href are either "body", or they are considered to be
the name of a header, case-insensitive.
single-test methods
The single-test methods in the synopsis above are very similar to their counterparts in Test::Simple and Test::More. Please consult
those modules for documentation.
Please note that tests for equality remove newlines from their operands before testing. This is because some email messages have
newlines appended to them during mailing.
"my $ok = $email-"parts_ok($parts_count, $description);>
Check to see how many MIME parts this email contains. Each part is also a Test::Email object.
"my $ok = $email-"mime_type_ok($expected_mime_type, $description);>
Check the MIME type of an email or an email part.
EXPORT
None.
SEE ALSO
Test::Builder, Test::Simple, Test::More, Test::POP3
TODO
I am open to suggestions.
AUTHOR
James Tolley, <james@cpan.org>
COPYRIGHT AND LICENSE
Copyright (C) 2007-2008 by James Tolley
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.8 or,
at your option, any later version of Perl 5 you may have available.
perl v5.10.0 2008-10-24 Test::Email(3pm)