Re^2: How to suppress "only used once" regarding script file handles (that are in fact used in my module), but do it from a the module?

Hmmm...

Perhaps I described the problem inadequately. The user of my module creates the file handle. My module exports openOut and it takes a file handle as its first argument in a variable:

sub openOut
  {
    my $file_handle     = $_[0];
    my $output_file     = $_[1];
    ...
  }
[download]

I use that file handle (in variable form - stored in a hash actually) multiple times throughout the module. My module doesn't know the bareword handle name, so I can't directly reference *main::OUT in my module code to "use it twice". Even if I get the name of the bareword file handle with some trick like $bareword_filehandle = select(), I wouldn't guess that I could satisfy the "use it more than once" requirement regarding main without typing the thing out in the code, and if I did that inside the module, I don't know if that would work for the warning about the file handle in main. How does sort do it WRT $a and $b? And how wouyld I replicate that when I don't know the name of the handle?

So... if I put no warnings 'once' inside my openOut sub in my module, are you saying that that would suppress warnings about *OUT (or whatever hard-coded handle the user creates) in main?

Here's a full example of a user's script who would be using my module (we'll call it Foo for now):

#!perl
use Foo qw(openOut);
openOut(*BAR,"~/output.txt");
print("Hello world!\n");
[download]

I do have a feature planned to possibly make the openOut method return an anonymous file handle. That would solve the problem, but it would create other problems, which I haven't worked out yet.

Comment on Re^2: How to suppress "only used once" regarding script file handles (that are in fact used in my module), but do it from a the module? Select or Download Code

Replies are listed 'Best First'.
Re^3: How to suppress "only used once" regarding script file handles (that are in fact used in my module), but do it from a the module? by Your Mother (Archbishop) on Nov 07, 2019 at 22:38 UTC
Forgoing a lexical (you’re calling it “anonymous”) filehandle gives you some serious problems you may not have considered. Best practice is never GLOBAL handles (excepting built-ins…).	[reply]
Re^3: How to suppress "only used once" regarding script file handles (that are in fact used in my module), but do it from a the module? by hippo (Archbishop) on Nov 08, 2019 at 11:27 UTC
I agree with all three replies you've received to this so far. I would also add (my anonymous brother's comment notwithstanding) that you can avoid this problem entirely simply by returning the opened filehandle rather than accepting it as an argument. eg. In your module: `sub openOut { my $filename = shift; open my $fh, '>', $filename or die $!; select $fh; return $fh; };` [download] In this way, the user of your module can either call this sub in void context if they don't care about closing the handle later (this avoiding the "once" warning) or in scalar context if they do. eg: `# void context, no handle to close openOut ("file1"); print "foo\n"; # scalar context, handle stored so can be closed, printed to explicitl +y, etc. my $handle = openOut ("file2"); print "bar\n"; closeOut ($handle);` [download]	[reply] [d/l] [select]
Re^3: How to suppress "only used once" regarding script file handles (that are in fact used in my module), but do it from a the module? by tobyink (Canon) on Nov 08, 2019 at 09:56 UTC
I think you're over-thinking this. If the warning is coming from their script and not from your module, it's their job to eliminate the warning. In their script they can do `no warnings 'once';`, or they can use the name twice. Now, you could do something like this in your module: `sub import { warnings->unimport('once'); }` [download] … which will effectively do `no warnings 'once'` on their behalf, but unimporting warnings for your caller is only something you should be doing if you document it in big red letters in your documentation. "How does sort do it WRT $a and $b?" Perl special cases the `$a` and `$b` package variables, not requiring them to be declared with `our`, and not warning about them being used only once. They're magic. Not as magic as other built-in variables, but still a little magic. toby döt ink	[reply] [d/l] [select]
Re^3: How to suppress "only used once" regarding script file handles (that are in fact used in my module), but do it from a the module? by Anonymous Monk on Nov 08, 2019 at 02:22 UTC
Here's a full example of a user's script who would be using my module (we'll call it Foo for now): Hi Thats a tad , optimistic? ;) `use Path::Tiny qw/ path /; select my $bar = path("~/output.txt")->opena_utf8; print "Hello world!\n";` [download] At least thats this user's opinion Modern Perl , the future is now :) `$ perl - use Path::Tiny qw/ path /; select path("~/output.txt")->opena_utf8; print "Hello world!\n"; __END__ $ cat %home%\output.txt Hello world! $ del %home%\output.txt $` [download]	[reply] [d/l] [select]