Hi Guys,
i have two files:
fileA:
20090611 00:00:11
20090611 00:00:11
20090611 00:00:24
20090611 00:01:10
20090611 07:13:00

fileB:
20090611 00:00:01
20090611 00:00:12
20090611 00:00:24
20090611 00:01:12
20090611 09:13:00

want to make two files into a single file, but follow the time sequence, the output fileC:
20090611 00:00:01
20090611 00:00:11
20090611 00:00:11
20090611 00:00:12
20090611 00:00:24
20090611 00:00:24
20090611 00:01:10
20090611 00:01:12
20090611 07:13:00
20090611 09:13:00

instead of one by one compare the time, any simple way to doing it?

Thanks

You sure you want to use Perl to do that ?

One simple way could be:

$
$ sort filea fileb
20090611 00:00:01
20090611 00:00:11
20090611 00:00:11
20090611 00:00:12
20090611 00:00:24
20090611 00:00:24
20090611 00:01:10
20090611 00:01:12
20090611 07:13:00
20090611 09:13:00
$

$
$ perl -e '{open(F1,"filea"); @a1=<F1>; close(F1); open(F2,"fileb"); @a2=<F2>; close(F2); print sort(@a1,@a2)}'
20090611 00:00:01
20090611 00:00:11
20090611 00:00:11
20090611 00:00:12
20090611 00:00:24
20090611 00:00:24
20090611 00:01:10
20090611 00:01:12
20090611 07:13:00
20090611 09:13:00
$
$

Thanks tyler ,

i like the sort so much, thanks for this.
but if my fileA:
4 20090611 00:00:11
5 20090611 00:00:11
3 0090611 00:00:24
3 20090611 00:01:10
10 20090611 07:13:00

fileB:
4 20090611 00:00:01
11 20090611 00:00:12
22 20090611 00:00:24
9 20090611 00:01:12
9 20090611 09:13:00

So for each file, there is another field in the head, so if still want to get the date sort, then seems cannot use 'sort filea fileb'.

-----Post Update-----

Oh, just saw can use "-k" with sort.

-----Post Update-----

Oh, just saw can use "-k" with sort.

Hi Guys,

I know how to use the sort, -k to sort two files, but face the problem where need to sort differient fields in differient files.

FileA:
20090610 23:58:59 444
20090610 23:52:13 555
20090611 00:00:02 6

FileB:
1 63660 5807 Wed 10/06/2009 23:54:58
4 63660 5807 Wed 10/06/2009 23:59:58
33 63660 5807 Wed 11/06/2009 23:54:58

###################

So For FileA, field1 and field2 sort date, and for FileB, sort date by field date. As we can see fileA and B date are in differient fields, how to sort these two files?

Thanks

- What do you want the output to look like ?
- Do you want to sort each file individually ?
- If you want to combine the contents of both files, the data won't align properly as the files have different number of fields.

Post the output that you expect, taking your files as the example.

tyler_durden

Hi tyler,

Thanks. the output file will combine these two files sort by the date:
20090610 23:52:13 555
1 63660 5807 Wed 10/06/2009 23:54:58
20090610 23:58:59 444
4 63660 5807 Wed 10/06/2009 23:59:58
20090611 00:00:02 6
33 63660 5807 Wed 11/06/2009 23:54:58
###########
so sort by date. The reason for such two files differient date field and date format different, becuase those two files are from two differient billing.

Thanks.

-----Post Update-----

The output also can be below, means can remove FileB before data characters. or if possible change the fileB data format to fileA data format.
#########################
20090610 23:52:13 555
Wed 10/06/2009 23:54:58
20090610 23:58:59 444
Wed 10/06/2009 23:59:58
20090611 00:00:02 6
Wed 11/06/2009 23:54:58
######################

:--( see cut, paste, join, sort, but no luck.

Jumping back to perl... Assuming the last field of FileA and the first field of FileB are not important for the sort...

use strict;
use warnings;
my @all_lines;
open(my $FA, 'filea.txt') or die "$!";
while(<$FA>) {
   chomp;
   push @all_lines,[join('',(split(/\s+/))[0,1]),$_];
}
close $FA;
open(my $FB, 'fileb.txt') or die "$!";
while(<$FB>) {
   chomp;
   my($d,$t) = (split(/\s+/))[4,5];
   my $d2 = join('',(split(/\//,$d))[2,1,0]);
   push @all_lines,["$d2$t",$_];
}
close $FB;
my @sorted = sort{$a->[0] cmp $b->[0]} @all_lines;  
print "$_->[1]\n" for @sorted;