Hi RudiC...
You are a star, works with spaces and in this test case too.
Results...
Perfect...
This bit is clever, (love it) ARRAY[${#ARRAY[@]}] .
It took me a short while to understand it, but I got there in the end...
Hi,
I wish to store $string1 in $string1array a character in each array element.
Then i wish to echo the entire array to the screen so that it reads as the normal string again.
I have been trying with the code below but does not work. Please help...
To put string into array:
... (5 Replies)
Hello, i am bit stuck with making script for automatic procedure.
Case:
Two files. One is flat file, other is csv file.
csv file has two column/fields with comma delimited data.
Here is what i need (explained way)
CSV file:
field1 | field2
"hello","byebye"
"hello2","byebye2"... (23 Replies)
A file contains the following information shown below. Every ceName has 2 consecutive lines that have to be evaluated, using awk, sed, cut (any common unix tools).
Input file:
ceName: Node-1
processName: tzMgmt
Status: PROCESS_NOT_RUNNING
ceName: Node-2
processName: tzMgmt
Status:... (15 Replies)
Hello,
I am pretty new to shell scripts and I recently wrote one that seems to do what it should but I am exploring the possibility of improving its performance and would appreciate some help. Here is what it does - Its meant to monitor a bunch of systems (reads in IPs one at a time from a flat... (9 Replies)
I'm new to forums, it's my first time posting.
I have a sun v490 server. I just installed solaris 10.6, on the local drives. I'm being asked to do the following:
For Oracle install I need “oracle” user that belong to “dba” and “oinstall” groups. File system /u01/app/oracle, 10GB (if... (6 Replies)
I need to create a flat file with columns delimited by "\002" (octal 2)
I tried using the simple echo.
name="Adam Smith"
age=40
address="1 main st"
city="New York"
echo ${name}"\002"${age}"\002"${address}"\002"${city} > mytmp
but it creates a delimiter with different octal... (4 Replies)
Hello Guru's
I want to read an array into a flatfile
Please let me know how to do the same
So far this the below code
use strict;
use warnings;
open (my $data , '<', $ARGV)|| die "could not open $ARGV:\n$!";
my @array=(<$data>);
my @sorted=sort... (8 Replies)
Hi all,
I have a flat file as below;
470423495|1||TSA-A000073800||1|||1
471423495|1||TSA-A000073800||5|||5
472423495|1||TSA-A000073800||2|||7
473423495|1||TSA-A000073800||3|||3
I like to create a Unix script.
The script have to valuate the last two columns, if the values are... (4 Replies)
Hi All,
is there any work around to generate the file and directory structure like below at left side at Output? and exclude all file except .abc .txt
Current Directory structure
|-------------files
|---------------Share
|-----------------dir1
|-----------------dir2... (11 Replies)
My string variable which gets the output from the result of a database query has values as below:
line="2019-09-11 15:17:55 CR1234 anonymous Deployed DR_only Back_APP"
I wish to construct an array (my_array) which should have entries as below.
Note:
1. The first... (6 Replies)
Discussion started by: mohtashims
6 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)