01-25-2008
Yes, I think we both understood that requirement, and both suggestions can be used to do what you want. If you are familiar with looping through perl arrays using subscripts: $array[n] then using Tie::File will be pretty straight forward once you read the documentation.
S_M's suggestion reads the file in chunks, not line by line, and looks like it should work although the last match might fail if there isn't two newlines at the end of the file. You will have to try it and see or maybe he can clear that up.
10 More Discussions You Might Find Interesting
1. Programming
Hello experts,
I ve a text file I want to go to particular line . what is the best way to do this in c ?
I am tried as follows
fseek ( fh, pos, SEEK_SET);
but this functions moves the file pointer according to a number of bytes. Unfortunately I don't know the exact byte... (7 Replies)
Discussion started by: user_prady
7 Replies
2. Shell Programming and Scripting
I'm a novice at unix and need it more and more to do my work.
I seem running into problems getting this script "attempt" to work:
I need to copy all files in a directory, which is containing 22000 files, into a directory one level up. There a tool monitors the content of the dir and processes... (2 Replies)
Discussion started by: compasscard
2 Replies
3. Shell Programming and Scripting
Scenario: Users drop files into a directory which is regularly polled by my PERL process. On detecting a file my process will move it from the poll dir to a working directory. A user created a file with a £ symbol in the filename and my process now fails.
e.g £££F3AERO££.txt
... (1 Reply)
Discussion started by: thefal9
1 Replies
4. Shell Programming and Scripting
I have multiple txt files which begin with the word "orders" in folder C:\source. I need to move the files to folder C:\dest and rename them to "process_<date>_<count>"
So for example , if there are 3 files ordersa.txt , ordersb.txt and ordersc.txt in C:\source , after running the script I want... (1 Reply)
Discussion started by: johannd
1 Replies
5. UNIX for Dummies Questions & Answers
I have multiple txt files which begin with the word "orders" in folder C:\source. I need to move the files to folder C:\dest and rename them to "process_<date>_<count>"
So for example , if there are 3 files ordersa.txt , ordersb.txt and ordersc.txt in C:\source , after running the script I want... (7 Replies)
Discussion started by: johannd
7 Replies
6. Shell Programming and Scripting
Hello,
I'm new to this forum. I've been doing a lot of sed work lately and have found many useful tips on this forum. I've hit a roadblock in a project, though, and could really use some help.
I have a text file with many lines like the following, i.e., some lines begin with a single word... (3 Replies)
Discussion started by: paroikoi
3 Replies
7. Shell Programming and Scripting
I need to read the contents of a file. Then I need to grep for a keyword and replace part of the grepped line based on the condition of previous and present line.
Example input file:
V {
port1 = P;
port2 = 0;
shift_port = P0; /* if next shift_port is P0 I need... (9 Replies)
Discussion started by: naveen@
9 Replies
8. Shell Programming and Scripting
I want to add/append the info in the following format to my.txt file.
20130702|abcd20130702.txt FN|SN|DOB
I tried the below script but it throws me some exceptions.
<#!/bin/sh
dt = date '+%y%m%d'members;
echo $dt+|+members+$dt;
/usr/bin/awk -f
BEGIN { FS="|"; OFS="|"; } { print... (6 Replies)
Discussion started by: harik1982
6 Replies
9. UNIX for Dummies Questions & Answers
Hi All
Is there a way to export every line into new txt file where by the title of each txt output are same as the line ?
I have this txt files containing names:
Kandra Vanhooser
Rhona Menefee
Reynaldo Hutt
Houston Rafferty
Charmaine Lord
Albertine Poucher
Juana Maes
Mitch Lobel... (2 Replies)
Discussion started by: Nexeu
2 Replies
10. UNIX for Beginners Questions & Answers
Good morning, i need your help please
I need to move a .TXT file greater or igual 355 MB and its correspondent .LST file in a non recursive way
The operating system is:
uname -a
SunOS server01c 5.10 Generic_144488-01 sun4u sparc SUNW,SPARC-Enterprise
For example:
rw-r--r-- 1 xptol ... (8 Replies)
Discussion started by: alexcol
8 Replies
LEARN ABOUT DEBIAN
mail::box::tie::array
Mail::Box::Tie::ARRAY(3pm) User Contributed Perl Documentation Mail::Box::Tie::ARRAY(3pm)
NAME
Mail::Box::Tie::ARRAY - access an existing message folder as array
SYNOPSIS
use Mail::Box::Manager;
my $mgr = Mail::Box::Manager->new;
my $folder = $mgr->open(folder => 'inbox');
use Mail::Box::Tie::ARRAY;
tie my(@inbox), 'Mail::Box::Tie::ARRAY', $folder;
# deprecated, but works too
use Mail::Box::Tie;
tie my(@inbox), 'Mail::Box::Tie', $folder;
foreach (@inbox) {print $_->short}
print $_->print foreach @inbox;
my $emails = @inbox;
print $inbox[3];
print scalar @inbox;
push @inbox, Mail::Box::Message->new(...);
delete $inbox[6];
print $inbox[0]->head->get('status');
my $folder = tied @inbox;
untie @inbox;
DESCRIPTION
Certainly when you look at a folder as a list of messages, it is logical to access the folder through an array.
Not all operations on arrays are supported. Actually, most functions which would reduce the size of the array are modified instead to mark
messages for deletion.
Examples what you cannot do:
shift/unshift/pop/splice @inbox;
METHODS
Constructors
TIEARRAY('Mail::Box::Tie::ARRAY', FOLDER)
Create the tie on an existing folder.
example: tie an array to a folder
my $mgr = Mail::Box::Manager->new;
my $inbox = $mgr->new(folder => $ENV{MAIL});
tie my(@inbox), 'Mail::Box::Tie::Array', ref $inbox, $inbox;
Tied Interface
$obj->DELETE()
Flag a message to be removed. Be warned that the message stays in the folder, and is not removed before the folder is written.
example:
delete $inbox[5];
$inbox[5]->delete; #same
$obj->FETCH(INDEX)
Get the message which is at the indicated location in the list of messages contained in this folder. Deleted messages will be returned
as "undef".
example:
print $inbox[3]; # 4th message in the folder
print @inbox[3,0]; # 4th and first of the folder
print $inbox[-1]; # last message
$obj->FETCHSIZE()
Return the total number of messages in a folder. This is called when the folder-array is used in scalar context, for instance.
example:
if(@inbox > 10) # contains more than 10 messages?
my $nrmsgs = @inbox;
$obj->PUSH(MESSAGES)
Add MESSAGES to the end of the folder.
example:
push @inbox, $newmsg;
$obj->STORE(INDEX, MESSAGE)
Random message replacement is not permitted --doing so would disturb threads etc. An error occurs if you try to do this. The only
thing which is allowed is to store a message at the first free index at the end of the folder (which is also achievable with PUSH()).
example:
$inbox[8] = $add;
$inbox[-1] = $add;
push @inbox, $add;
$obj->STORESIZE(LENGTH)
Sets all messages behind from LENGTH to the end of folder to be deleted.
DETAILS
Folder tied as array
Limitations
This module implements "TIEARRAY", "FETCH", "STORE", "FETCHSIZE", "STORESIZE", "DELETE", "PUSH", and "DESTROY".
This module does not implement all other methods as described in the Tie::Array documentation, because the real array of messages is not
permitted to shrink or be mutilated.
SEE ALSO
This module is part of Mail-Box distribution version 2.105, built on May 07, 2012. Website: http://perl.overmeer.net/mailbox/
LICENSE
Copyrights 2001-2012 by [Mark Overmeer]. For other contributors see ChangeLog.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See
http://www.perl.com/perl/misc/Artistic.html
perl v5.14.2 2012-05-07 Mail::Box::Tie::ARRAY(3pm)