help needed in File::Bom

[uva]

hai monks,
i like to find the encoding of the particular file and also the no of bytes occupied by the BOM.
so i used the below code, but it is giving error.

use File::BOM;
open(IN,"< d:\\input.txt");
($encoding, $spillage) = get_encoding_from_filehandle(HANDLE);
close IN;

it is giving error as

"Undefined subroutine &main::get_encoding_from_filehandle called"

but open (IN, '<:via(file::BOM)',"d:\\input.txt") is working fine.
can any one tell me whats wrong with that one.

[McDarren]

If you read the docs for File::BOM, you'll see that it exports nothing by default.

Therefore, you need to specify the routine/s that you want in your use line; either:

use File::BOM qw( :all );

or..

use File::BOM qw( get_encoding_from_filehandle );

Cheers,
Darren :)

[uva]

thanks for everyone replied me..
Thaats working fine . but i couldnot find the no of bytes occupied by the BOM.any one help me in that.

[idsfa]

If you had read the docs as has already been suggested:

After calling, the handle will be set to read at a point after the BOM (or at the beginning of the file if no BOM was found)

So all you need to do is find out what your current position in the file is after you get the encoding:

 .
 .
 .
 ($encoding, $spillage) = get_encoding_from_filehandle(HANDLE);
 $bom_length = tell HANDLE;
 .
 .
 .

[davidrw]

try use File::BOM qw( :all ) -- looks like the et_encoding_from_filehandle() function just isn't getting imported (the File::BOM docs state that nothing is exported by default).