What happens if you diff the file diff file1 file2 ----- Original Message ----- From: "Javeed SAR" <[EMAIL PROTECTED]> To: "Tanton Gibbs" <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]> Sent: Thursday, October 24, 2002 2:18 AM Subject: RE: Splitting A large data file
> i split one perl script, it got split ,i combined it , it's not working??? > Though the siza are same. > what is the problem. > > Regards > j@veed > > > > > > -----Original Message----- > From: Tanton Gibbs [mailto:thgibbs@;deltafarms.com] > Sent: Thursday, October 24, 2002 11:12 AM > To: [EMAIL PROTECTED] > Subject: Re: Splitting A large data file > > > Also, there is a CPAN utility for doing this > > http://search.cpan.org/author/SDAGUE/ppt-0.12/bin/split > ----- Original Message ----- > From: "Todd W" <[EMAIL PROTECTED]> > To: <[EMAIL PROTECTED]> > Sent: Thursday, October 24, 2002 1:36 AM > Subject: Re: Splitting A large data file > > > > > > > > Javeed Sar wrote: > > > > > > How to combine it back after split??? > > > > > > > perl -e 'print <>' splitfile.1 splitfile.2 splitfile.3 splitfile.4 > > splitfile.5 > splitfile.new.txt > > > > note the ordering is different, because the program below sends the next > > record to the next filehandle in a circle. The above one liner dumps the > > contents of the files sequentially. But if your datafile implementation > > is sound that shouldnt matter. > > > > Todd W. > > > > > > > > James Kipp wrote: > > > > > >>I am working on a Windows NT box and I don't have the luxury of any file > > >>splitting utilities. We have a data file with fixed length records. I > was > > >>wondering the most efficient way of splitting the file into 5 smaller > > > > > > files. > > > > > >>Thought ( Hoping :-) ) some one out there may have done something like > > > > > > this. > > > > > >> > > >>Thanks !! > > > > > > > > > #!/usr/bin/perl -w > > > > > > use strict; > > > > > > # call new() with named args found in init() to override defaults > > > my( $fSpliter ) = Text::FileSplitter->new(); > > > > > > $fSpliter->split(); > > > > > > print( "done!\n" ); > > > > > > package Text::FileSplitter; > > > use strict; > > > use IO::File; > > > > > > sub new { > > > my($class, %args) = @_; > > > my($self) = bless( { %args }, $class ); > > > $self->init(); > > > return( $self ); > > > } > > > > > > sub init { > > > my($self) = shift(); my($filehandles) = []; > > > > > > $self->{ file } ||= './splitfile.txt'; > > > $self->{ output_prefix } ||= ( ($self->{ file } =~ /(\w+)/) and $1 ); > > > $self->{ file_count } ||= 5; > > > $self->{ record_length } ||= 10; > > > > > > $self->{ fh } = IO::File->new( "< $self->{ file }" ) > > > or die("open $self->{ file }: $!"); > > > > > > foreach ( 1 .. $self->{ file_count } ) { > > > push( > > > @{ $filehandles }, > > > IO::File->new("> $self->{ output_prefix }.$_") > > > ); > > > } > > > $self->{ ofh } = $filehandles; > > > > > > } > > > > > > sub split { > > > my($self) = shift(); my($buffer); > > > my($counter) = 0; > > > while ( sysread $self->{ fh }, $buffer, $self->{ record_length } ) { > > > $self->{ ofh }[ $counter % $self->{ file_count } ]->print( > $buffer ); > > > $counter++; > > > } > > > } > > > > > > > > > -- > > To unsubscribe, e-mail: [EMAIL PROTECTED] > > For additional commands, e-mail: [EMAIL PROTECTED] > > > > > > > > > -- > To unsubscribe, e-mail: [EMAIL PROTECTED] > For additional commands, e-mail: [EMAIL PROTECTED] > -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
