help needed in File::Bom

uva has asked for the wisdom of the Perl Monks concerning the following question:

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;
[download]

it is giving error as

"Undefined subroutine &main::get_encoding_from_filehandle called"
[download]

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

Comment on help needed in File::Bom Select or Download Code

Replies are listed 'Best First'.
Re: help needed in File::Bom by McDarren (Abbot) on Apr 11, 2006 at 15:48 UTC
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 );` [download] or.. `use File::BOM qw( get_encoding_from_filehandle );` [download] Cheers, Darren :)	[reply] [d/l] [select]
Re^2: help needed in File::Bom by uva (Sexton) on Apr 11, 2006 at 15:54 UTC
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.	[reply]
Re^3: help needed in File::Bom by idsfa (Vicar) on Apr 11, 2006 at 16:13 UTC
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; . . .` [download] The intelligent reader will judge for himself. Without examining the facts fully and fairly, there is no way of knowing whether vox populi is really vox dei, or merely vox asinorum. — Cyrus H. Gordon	[reply] [d/l]
Re: help needed in File::Bom by davidrw (Prior) on Apr 11, 2006 at 15:44 UTC
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).	[reply] [d/l] [select]