Thanks a lot ghostdog74. It works!
But it's really slow for large data files.
Join is surprisingly much faster in managing large files, only join couldn't work in this case.
Code:
#! /opt/third-party/bin/perl
open(FILE, "<", "small") || die "Unable to open file small <$!>\n";
while(<FILE>) {
chomp;
$fileHash{$_} = $i++;
}
close(FILE);
open(FILE, "<", "index") || die "Unable to open file index <$!>\n";
while(<FILE>) {
chomp;
$set = 0;
foreach my $v ( sort keys %fileHash ) {
if ( $v =~ m/^$_/ ) {
print $v . "\n";
$set = 1;
last;
}
}
print "$_,,,\n" if ( $set == 0 );
}
close(FILE);
exit 0
Hi:
First, this is not a homework problem. I just need enough of a hint to get this going...
My datafile (dataf.in) is made up of 10 sections. Each section begins with & and with &&
So it looks like this:-------------------------------------
§ion1
...etc...
&&
§ion2
...etc...... (4 Replies)
Hi ,,,,
I have move an oracle db from old server to a new server ( solaris 5.9 is the operating system ) my problem is that to new server the datafile ( *.dbf ) are in a different path .....
example
old : /export/home/data/blobs ...........
new /oracle/data/blobs.......
how i can... (3 Replies)
Hi dear friends,
Im writing a shell script which has to select the strings based on the position.
but the problem is there is no field seperator.
Normally a datafile contains 2000 records (lines) and each line is of size 500 charecters.
I want to select the fields from all the lines which... (10 Replies)
I am working on an shell script which checks for all the file starting with abc*.*
and if file found then the filelines need to append the file name in begining
can some one help with the filename appending...
for i in `ls $filename*.csv`
do
echo $i
--- NEED to append file name befor... (3 Replies)
Hi,
Is there any way we can find out which process is creating a partucular datafile.I know the user and group but i am just curios to know is there any way to find the process.
Thanks (7 Replies)
Hello,
I've tried searching the forum for an answer to my question, but without any luck...
I have a datafile looking simplified as follows:
01 02 03 04 05 06
07 08 09 10 11 12
13 14 15 16 17 18
19 20 21 22 23 24
I want to reverse it by rearranging all the numbers from last to... (16 Replies)
Hi,
I have two files:
first input file is having 7-8 columns,
and second data file is like
I want to arrange my datafile1 in the order given in second data file, by comparing the seconddatafile with the second column of first file and print the entire line....also if any... (2 Replies)
I have a datafile containing data in the following format
name1,employee_number1,cell1,home1,fax1
name2,employee_number2,cell2,home2,fax2
name3,employee_number3,cell3,home3,fax3
name4,employee_number4,cell4,home4,fax4
name5,employee_number5,cell5,home5,fax5
...
...
....
I would like... (6 Replies)
I have two input files 1)datafile 2)metadata file.
I have a metadata file like:
field1datatypeformat1number2string3dateyy-mm-dd
I have a data file like:
1234abc12-8-16 xyz234512-9-163456acd14-08-12
In the first row there is no correction as everything is inline with the metadata.... (3 Replies)
Hi,
I want to be able to read numbers from many files which have the same general form as follows:
C3H8 4.032258004031807E-002
Phi = 1.000000E+00 Tau = 5.749E+00
sL0 = 3.805542E+01 dL0 = 1.514926E-02
Tb = 2.328291E+03 Tu = 3.450E+02 Alpha = ... (3 Replies)
Discussion started by: lost.identity
3 Replies
LEARN ABOUT REDHAT
apr::perlio
PERLIO(1) User Contributed Perl Documentation PERLIO(1)NAME
APR:PerlIO -- An APR Perl IO layer
SYNOPSIS
use APR::PerlIO ();
sub handler {
my $r = shift;
open my $fh, ">:APR", $filename, $r or die $!;
# work with $fh as normal $fh
close $fh;
return Apache::OK;
}
DESCRIPTION
"APR::PerlIO" implements a Perl IO layer using APR's file manipulation as its internals.
Why do you want to use this? Normally you shouldn't, probably it won't be faster than Perl's default layer. It's only useful when you need
to manipulate a filehandle opened at the APR side, while using Perl.
Normally you won't call open() with APR layer attribute, but some mod_perl functions will return a filehandle which is internally hooked to
APR. But you can use APR Perl IO directly if you want.
METHODS
Perl Interface:
open()
To use APR Perl IO to open a file the four arguments open() should be used. For example:
open my $fh, ">:APR", $filename, $r or die $!;
where:
the second argument is the mode to open the file, constructed from two sections separated by the ":" character: the first section is
the mode to open the file under (>, <, etc) and the second section must be a string APR.
the fourth argument can be a "Apache::RequestRec" or "Apache::ServerRec" object.
the rest of the arguments are the same as described by the open() manpage.
seek()
seek($fh, $offset, $whence);
If $offset is zero, "seek()" works normally.
However if $offset is non-zero and Perl has been compiled with with large files support ("-Duselargefiles"), whereas APR wasn't, this
function will croak. This is because largefile size "Off_t" simply cannot fit into a non-largefile size "apr_off_t".
To solve the problem, rebuild Perl with "-Uuselargefiles". Currently there is no way to force APR to build with large files support.
The C interface provides functions to convert between Perl IO and APR Perl IO filehandles.
SEE ALSO
The perliol(1), perlapio(1) and perl(1) manpages.
perl v5.8.0 2002-06-05 PERLIO(1)