Re^7: Sorting text files.

Ok excuse the stupid question, but perl is new to me.

I have file names FILE1 and FILE2 I also tried with __FILE1__ as read here (http://search.cpan.org/~ambs/Inline-Files-0.69/lib/Inline/Files.pm)

But I keep getting errors

xbmc@bloris:~/vdrchan$ perl sort2.pl

+ Name "main::FILE1" + + Name "main::FILE2" + + readline() on unopened filehandle + + readline() on unopened filehandle 


Is vf load failing? + + use Inline::Files; + + Could not vf_load '/home/xbmc + + BEGIN failed--compilation + + xbmc@bloris:~/vdrchan/test$ 

+ + Reading '/home/xbmc/.cpan/Metadata' + + Database was generated + + Inline::Files is up to date (0.69). + +

+ + cpan[2]>  


class='codetext'>                                                                      

used only once: possible typo at sort2.pl line 9.   

used only once: possible typo at sort2.pl line 7.   

FILE2 at sort2.pl line 7.            

FILE1 at sort2.pl line 9. href="?part=1;displaytype=displaycode;abspart=1;node_id=1147183">[download]

but I get no output class='codetext'>xbmc@bloris:~/vdrchan/test$ perl /vdrchan/test/-' at /usr/local/share/perl /5.18.2/Inline/Files.pm line 39. aborted at - line 1. href="?node_id=1147183;abspart=1;displaytype=displaycode;part=2">[download]

Replies are listed 'Best First'.
Re^8: Sorting text files. by Anonymous Monk on Nov 07, 2015 at 14:53 UTC
The module Inline::Files is just used to make a self-contained program for testing purposes. Use perl's normal open function for actual usage. See "perldoc -f open". `#!/usr/bin/perl # http://perlmonks.org/?node_id=1147112 use strict; use warnings; my %id; open my $fhdata, '<', 'File1' or die "$! opening File1"; open my $fhorder, '<', 'File2' or die "$! opening File2"; $id{ s/;.*//r } .= $_ for sort <$fhdata>; print delete @id{ <$fhorder> }, sort values %id; close $fhdata; close $fhorder;` [download] Where the file named "File1" contains your first file, and the file named "File2" contains your second file.	[reply] [d/l]
Re^9: Sorting text files. by Saner (Novice) on Nov 07, 2015 at 15:06 UTC
Thank you, to all of you.	[reply]

Replies are listed 'Best First'.

Re^8: Sorting text files.
by Anonymous Monk on Nov 07, 2015 at 14:53 UTC

The module Inline::Files is just used to make a self-contained program for testing purposes. Use perl's normal open function for actual usage.

See "perldoc -f open".

#!/usr/bin/perl

# http://perlmonks.org/?node_id=1147112

use strict;
use warnings;

my %id;

open my $fhdata, '<', 'File1' or die "$! opening File1";
open my $fhorder, '<', 'File2' or die "$! opening File2";

$id{ s/;.*//r } .= $_ for sort <$fhdata>;
print delete @id{ <$fhorder> }, sort values %id;

close $fhdata;
close $fhorder;
[download]

Where the file named "File1" contains your first file, and the file named "File2" contains your second file.