I am concerned that the cache files won't be portable across platforms but I can probably catch that out.

1. is this approach missing any obvious bad practice
2. are any CPAN modules that do this that I could review?
3. any advice on testing against network resources or cached data appreciated.

Another option that occurred to me after posting this question is to create my own CHI::Driver subclass and use that for testing with some hard coded values.

Many thanks for any advice.

just for curiosity...

If I have an array of filenames and a glob-pattern (as e.g. "*.hubba"), is there a way to "glob" the array (i.e. get the list of all elements matching the glob-pattern) using the same logic "glob" would use, or would I have to translate the gob-pattern into a regex and do a grep?

Many thanks!

#!/bin/perl
use v5.12;
use warnings;

       my $in = $ARGV[0];
       if (! defined $in) {
          die "Usage: $0 filename";
       }


       my $out = $in;
       $out =~ s/(\.\w+)?$/out/;

       if (! open $in_fh, '<', $in ) {
          die "Can't open '$in': $!";
          }

       if (! open $out_fh, '>', $out) {
          die "Can't write '$out': $!";
          } 
[download]

Here is the errors that I received:

Global symbol "$in_fh" requires explicit package name at ./exer_9_2 li
+ne 14.
Global symbol "$out_fh" requires explicit package name at ./exer_9_2 l
+ine 1 
[download]

What 'package' am I missing?

Thanks, guys! That was a quick resolution. Indirect Object syntax was what tripped me up. As haukex suggests, I'll have to start using the Yadda, Yadda operator ... to ensure that I don't miss that in the future.

Using that operator and a comment, I can either let the program run and execute and die only if I reach unfinished code:

sub find_symbol {
    ... # got to here today! (20180520)
}
[download]

$ perl xyzzy.pl
Foo!
Unimplemented at xyzzy.pl line 13.
[download]

Or if I'd rather have the program just fail without running, I can prefix my original comment with the operator (so long as I don't use a semicolon as the first character in my comment:

sub find_symbol {
    ... got to here today! (20180520)
}
[download]

$ perl xyzzy.pl
syntax error at xyzzy.pl line 12, near "... got to "
Execution of xyzzy.pl aborted due to compilation errors.
[download]

Really, though, not one Monty Python reference? 8^)

Original post follows:

Hello, gang:

When I write experimental bits of code and don't get a chance to finish, I'll frequently mark my position with a few words and no comment marker with the intent that if I run the program, perl will tell me that bit(s) of my code are unfinished, and let me know where the unfinished bits are. This morning I decided to adapt a working program I've been using all week to add some new functionality, and when I looked at the code, I saw this bit:

sub find_symbol {
    got to here today! (20180520)
}
[download]

What the heck? The code is working, but that subroutine just can't be right. So I looked over the program--It doesn't look like the code is commented out anywhere (I normally use "=h1 foo" and "=cut" to comment out blocks of code I don't want to use). I ran:

$ perl -c LTSpice_to_graph.pl
LTSpice_to_graph.pl syntax OK
[download]

OK, then, *something* has to be masking this syntax error, right? So I copied the code to xyzzy.pl and started removing chunk after chunk, eventually coming up with:

$ cat xyzzy.pl
#!env perl
use strict;
use warnings;

find_symbol();

sub find_symbol {
    got to here today
}

$ perl -c xyzzy.pl
xyzzy.pl syntax OK

$ perl -MO=Concise xyzzy.pl
6  <@> leave[1 ref] vKP/REFC ->(end)
1     <0> enter ->2
2     <;> nextstate(main 5 xyzzy.pl:5) v:*,&,{,x*,x&,x$,$ ->3
5     <1> entersub[t2] vKS/TARG,STRICT ->6
-        <1> ex-list K ->5
3           <0> pushmark s ->4
-           <1> ex-rv2cv sK/STRICT,1 ->-
4              <#> gv[*find_symbol] s/EARLYCV ->5
-     <;> ex-nextstate(main 7 xyzzy.pl:10) v:*,&,{,x*,x&,x$,$ ->6
xyzzy.pl syntax OK
[download]

So consider me baffled, I don't know what's going on here. Can anyone tell me what I'm not seeing?

For the record:

$ perl -version

This is perl 5, version 26, subversion 2 (v5.26.2) built for x86_64-cy
+gwin-threads-multi
(with 7 registered patches, see perl -V for more detail)
[download]

Interesting ... one more bit of information before I hit the preview button. I changed the contents of the subroutine to:

sub find_symbol {
    I got to here today
}
[download]

and now I get what I expected to see:

$ perl -c xyzzy.pl
Bareword "today" not allowed while "strict subs" in use at xyzzy.pl li
+ne 8.
xyzzy.pl had compilation errors.
[download]

Does anyone know what's happening here? My only (ill-informed) guess would be something to do with parsing the GOTO statement.

...roboticus

When your only tool is a hammer, all problems look like your thumb.

$a = "/path/to/a/file";
$b = "/path/to/b/file";
$difference = system("$diff $a $b");
$difference2 = system("$diff -y $a $b");
[download]

But the $difference2 printed in html file shows all the difference in 2 columns -left & right (1000 lines from 1000 lines).

So i want those extra lines which is in a and in b at the same file same time.

if ($difference eq ''){
$difference = "Exactly Same.\n";
}
push @table1, "<table id =\"Table1\">";
push @table1, "<tr><th>path A</th><th>A</th><th>path B</th><th>B</th><
+/tr>";
push @table1, "<tr><td colspan =\"4\">$difference</td></tr>";
[download]

Any idea guys ?

This is probably a supremely dumb question, but that's never stopped me before. I feed off of the ridicule. :)

So what are the potential problems with doing the following in Moose?

use Moose;

has 'why_pass_self' => { is => 'Str', default => 'dunno, is this ok?' 
+};

my $self;

sub BUILD {
  my $s = shift;
  $self = $s;
}

sub _kool_func {
  print $self->why_pass_self;
}

sub kool_func_for_users {
  my $self = shift;
  $self->_kool_func;
}
[download]

I am trying to learn how tr really works, and I think I still don't get it. I remember, reading the manual...it said that the character following tr is a separator character, and everything between the separators are characters that will get replaced with a new set of characters defined in the second group. Anyway, I am trying to write a little program that replaces the first 52 bytes of a character map with letters. In other words, in this programming exercise, I am trying to replace binary codes with tr, but tr is not handling these codes very well. For example, it gives an error when I try to convert chr(8) to "I"

Here is my sample code:

#!/usr/bin/perl

use strict;
use warnings;

for (my $i = 0; $i < 52; $i++)
{
  $a = chr($i);
  $a =~ tr|\0\1\2\3\4\5\6\7\8\t\n\0x0B\r\0x0D\0x0E\0x0F\0x10\0x11\0x12
+\0x13\0x14\0x15\0x16\0x17\0x18\0x19\0x1A\0x1B\0x1C\0x1D\0x1E\0x1F !"#
+$%&'()*+,-./0123456789|ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrst
+uvwxyz|;
  print "chr $i -> $a \n";
}

exit;

[download]

i need some correction in my code. am getting Image::Resize->new(): usage error

my $Newfile='0911';
my $copy_dir_qfn = 'avator/';
my $upload_fh = $CGI->upload("IMAGE");
my $image = Image::Resize->new($upload_fh);
my $gd = $image->resize(100, 100);
my ($file_extension) = $gd =~ /([^.]+)$/;
my $rename = $copy_dir_qfn."$Newfile.$file_extension";
open OUTFILE,'>',$rename or die "$!";
  binmode OUTFILE;
  while (<$upload_fh>){
    print OUTFILE;
  }
  close OUTFILE;
[download]

while ( $line=~/<a href=\"(.*?)\.htm\">/ig ) {
[download]

<a href="test1.htm"> test1</a><br> <a href="test2.htm"> test2</a><br> 
+<a href="test3.htm"> test3</a><br> 
[download]

test1"> test1</a><br> <a href="test2
[download]

test2
[download]

#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;

my $command = <<'END';
curl 'https://tax-calculator-api.taxfoundation.org/taxcalc/tcja_submit
+' -H 'Origin: https://taxfoundation.org' -H 'Accept-Encoding: gzip, d
+eflate, br' -H 'Accept-Language: en-US,en;q=0.9' -H 'User-Agent: Mozi
+lla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like
+ Gecko) Chrome/69.0.3497.100 Safari/537.36' -H 'content-type: applica
+tion/json' -H 'Accept: */*' -H 'Referer: https://taxfoundation.org/20
+18-tax-reform-calculator/' -H 'Connection: keep-alive' --data-binary 
+$'{"filing_status": 1, "child_dep": 2, "nonchild_dep": 0, "ordinary_i
+ncome1": 150000, "ordinary_income2": 0, "business_income": 0, "ss_inc
+ome": 0, "qualified_income": 0, "401k_contributions": 0, "medical_exp
+enses": 0, "sl_income_tax": 0, "sl_property_tax": 0, "interest_paid":
+ 0, "charity_contributions": 0, "other_itemized": 0}' --compressed
END

print $command;

my $data = `$command` or die "$!\n";
print Dumper $data;
[download]