I just tried to create a link to part of my scratchpad where I placed an id=. I tried [id://637756#laundry|my pad]. It did not munge. I just got [id://637756#laundry|my pad]. I would really like to link to tags with ids. For example, if I give an id to a section of my home node, I can link to just that section. Pretty please?

Update: It looks like I can not add ids to the html elements. They do not make it to display. 8(

As some of you know, I'm doing an audit of my code. Part of that audit is finding what modules my modules use and what modules I have written are used by other modules I have written. If I ever get things nice enough in some of my modules, I might one day put a few up on CPAN. However, I need to know what modules my modules use so I can include them in the install if the user does not already have. Like, if I use Lingua::EN::Inflect in a module (or group of modules), it would need to be installed if the user does not have it already. At least I think so.

I came up with the following code to find the information but there might be a better way.

Update: I put the updated code I used here: Re: Finding what modules use and what uses the modules. Your options looked interesting but did not differentiate things the way I wanted.

#!/usr/bin/perl
use strict;
use warnings;

use File::Find;

my @files;
sub wanted {
  my $file = $_ =~/.pm$/ ? $File::Find::name : undef;
  push @files, $file if $file;
}

my @directories = ('/home/me/Documents/');
find(\&wanted,  @directories);

my $module_directory = $directories[0].'www/files/lib/';

my $modules;
for my $file (@files) {
  open my $fh, '<', $file or die "$file: $!";
  my $file_convert = $file;
     $file_convert =~ s/$module_directory(.+)\.pm/$1/;
     $file_convert =~ s/\//::/g;

  while (<$fh>) {
    chomp;
    if ($_ =~ s/^use ((:|\w)+)(.+)/$1/) {
      push @{$modules->{$file_convert}{'uses'}}, $1;    # what modules
+ the module uses
      push @{$modules->{$1}{'used by'}}, $file_convert; # what modules
+ use this module
    }
  }
}

my $in = shift;
use Data::Dumper;
print Dumper($modules->{$in});
[download]

Here is example output.

me@office:~$ perl Documents/scripts/find_module_use.pl 'RolePlaying::R
+andom'
$VAR1 = {
          'used by' => [
                         'RolePlaying::CharacterMutation',
                         'RolePlaying::Random::Range',
                         'RolePlaying::Random::Time',
                         'RolePlaying::Random::SpecialAttack',
                         'RolePlaying::Random::Title',
                         'RolePlaying::Random::WildPsionics',
                         'RolePlaying::Random::Descriptor',
                         'RolePlaying::Random::Spell',
                         'RolePlaying::Random::SavingThrow',
                         'RolePlaying::Random::Color',
                         'RolePlaying::Random::Monster',
                         'RolePlaying::Random::GemMetalJewelry',
                         'RolePlaying::Random::Thing',
                         'RolePlaying::Random::Weapon',
                         'RolePlaying::Random::Size',
                         'RolePlaying::Random::Food',
                         'RolePlaying::Random::Misc',
                         'RolePlaying::Random::Event',
                         'RolePlaying::Random::Water',
                         'RolePlaying::Random::Class',
                         'RolePlaying::Random::MagicItem',
                         'RolePlaying::Random::Color::VisiBone',
                         'RolePlaying::Random::Body::Function',
                         'RolePlaying::Random::Body::Modification'
                       ],
          'uses' => [
                      'strict',
                      'warnings',
                      'Exporter',
                      'List::Util'
                    ]
        };
[download]

If you know of a better way that will give me deeper or more sophisticated results, I am interested.

Hello. I've been stuck for over an hour now. I can't figure out how to get File::Grep's fgrep to return chomped values in its matches. I've tried chomping $file, chomping $_ in the fgrep, and more. Am I using it wrong, not understand something in the module description, or just plain out of luck and have to munge the values of matches later?

#!/usr/bin/perl
use strict;
use warnings;

use File::Grep qw(fgrep);
use Data::Dumper;

my @line = fgrep { /^[2-6] .+$/ } *DATA;
print Dumper(\@line);

__DATA__
2 foo
3 bar
4 baz
5 qux
6 quux
7 thingy
8 widget
[download]

The output is

$VAR1 = [
          {
            'filename' => *::DATA,
            'count' => 5,
            'matches' => {
                           '1' => '2 foo
',
                           '2' => '3 bar
',
                           '3' => '4 baz
',
                           '4' => '5 qux
',
                           '5' => '6 quux
'
                         }
          }
        ];
[download]

I'm at the end of my abilities.

Over the last few days, I've been doing a project that is forcing me take a new harder look at everything I've written: code and markup. One of the items which came up in my audit was a little subroutine which takes a number (usually scalar(@list)) and returns how many columns the list would be in according to exponential calculations. The default behavior of this subroutine is to return a word number not an integer. When I looked at it again, a voice in the back of my head told me the subroutine should return the integer by default because integers are more useful. I also had the sinking feeling someone here probably pointed that out to me, and I ignored it. I wanted what I wanted, and no one was going to make me change my mind at the time. I had to change my own mind and pay the price for it later.

So, this is my confession. I am a doofus. I am hard headed and obstinate when it comes to attaining my short term goals. I crawled into my shell to avoid any good advice about coding for the future.

So here is my old sub...

use Lingua::EN::Inflect qw(NUMWORDS);

sub get_columns {
  my ($max_cols, $amount, $number) = @_;
  if ($amount <= $max_cols ** 2) {
    for my $num (1..$max_cols) {
      if ($amount >= $num ** 2 && $amount < ($num + 1) ** 2) {
        return $number && $number =~ /^[yt1]/ ? $num : NUMWORDS($num);
      }
    }
  }
  else {
    return $number && $number =~ /^[yt1]/ ? $max_cols : NUMWORDS($max_
+cols);
  }
}
[download]

And the new more useful sub...

use Lingua::EN::Inflect qw(NUMWORDS);

sub get_columns {
  my ($max_cols, $amount, $word) = @_;
  if ($amount <= $max_cols ** 2) {
    for my $num (1..$max_cols) {
      if ($amount >= $num ** 2 && $amount < ($num + 1) ** 2) {
        return $word && $word =~ /^[yt1]/ ? NUMWORDS($num) : $num;
               ############################################# Delete to
+ get rid of Lingua::EN::Inflect
      }
    }
  }
  else {
    return $word && $word =~ /^[yt1]/ ? $NUMWORDS($max_cols) : $max_co
+ls;
           ################################################### Delete 
+to get rid of Lingua::EN::Inflect
  }
}
[download]

I feel bad for only now realizing returning a integer by default would be more useful than returning a number word. I think I spoke aloud when I called myself a doofus for returning a number word by default.

I've been doing a lot of rethinks lately. Some of my "utility" scripts seem useless in a broader sense.

The great advice I got from Monks long ago is finally settling into my head. I hope I am better with future advice, but that is to be seen.

Hello. I just recently noticed when I try to open a file for writing in a script running in my browser, permission denied is returned. So, is there a way to programatically tell my script running in my browser it is okay to write to that file? Also, how do I do it?

I've looked at open and nothing popped up at me say this is where permissions are granted. Even File::Slurp's write_file returned permission denied. I think this is weird because I can open files to be read in the browser without any issues with either open or File::Slurp's read_file.

In the mean time, I have set both files' permissions to 666.

Note: Please tell newbies to die to always include the $! at the end. If I had $! at the end of my die message, it would have cut at least 15 minutes of me traversing directories thinking the file did not exist. I felt like a doofus.

Edit per hippo: My OS is Debian jessie.

Update: Running the same script from my web host does not require me to set the permissions to 666. It writes to the file while it is 644.

A little over four years ago, I created the Cookies account for fun. I was known for my chatterbox antics with cookies; so on April Fools 2013, I decided to have some fun. Two years ago I went in for surgery, which is scary. I was thinking something could happen, and Cookies would be left without someone to maintain the account.

Some users still play with the buttons from time to time. I would not want the account to die just because I did. So, if anything happened to me, would there be someone who would be willing to take over this very silly account?

P.S. I am always willing to add more flavors and options to the account. Just let me know.

P.P.S. This thread can be for anything related to the Cookies account that might merit general discussion, too. 8)

Hello everyone! About five and a half years ago, I posted Happy unbirthday!. When I saw my fifteenth PerlMonks anniversary, I decided to write something new. However, I began to notice the new code I was writing had similar aspects to the old code I wrote for Unbirthdays, specifically the date verification subroutines I was was writing. So, I opened up Unbirthdays and took a second look. So here is the updated Unbirthdays and the new Birthday scripts.

Date::Verify verifies in input and returns the appropriate value.

• four_digit_year verifies the user input a four digit year. Usage: four_digit_year($year)
• month_name verifies the mount input is correct (such as inputting 13 as a month or the too short Ju). It returns a fully spelled out month name. Usage: month_name($month)
• month_number verifies the same as month_name, but it returns a month number instead. Usage: month_number($month)
• day_number verifies the day is a number and that the day exists within the month of the year. It returns the day number. Usage: day_number($year, $month, $day)

I am thinking on localizing this to the various countries available on Date::Calc.

unbirthdays.pl

I have made several changes to unbirthdays.

• First, I got rid of the Q&A. That became annoying to me while testing the changes I made to the script. To that end, I moved the input to the command line as @ARGV.
• Second, the Q&A was written to recurse until the input was in the correct form, however, the script now dies if the input is not in the correct form.
• Third, I fixed several things from the former unbirthdays thread.
  • I made greater use of the Date::Calc module.
  • I fixed the ordinal output of the number of unbirthdays.
  • I fixed the error on inputting October.
  • I fixed the leap year problem.
  • I fixed the negative days before next birthday problem.
  • If a parent runs this script for their newborn child on the child's day of birth, it will inform the parent the child's first unbirthday is tomorrow.
  • If the day this is run is the person's birthday, then the person is wished a happy birthday instead of a happy unbirthday.

Usage is: unbirthdays.pl name month day year. However, if unbirthdays.pl help is used, a helpful message appears.

birthday.pl

I was writing birthday.pl when I realized I was writing similar code as was in unbirthdays.pl. This script will tell the user their tropical zodiace sign, their birth stone and flowers (flowers for the US and UK are listed), and birth day stone (based on day of the week the user was born).

This is a silly little script, but it helped me fix the previous one.

Usage is: birthday.pl name month day year. However, if birthday.pl help is used, a helpful message appears.

I know these scripts probably still need work. I just hope you find them fun, or at least interesting.

Hello all. I am having a problem with my browser not recognizing my local libs. I set them up because I was told installing modules with sudo cpan and putting them in the main libs was not great. So I set up my local libs and installed all kinds of modules into them, got apache set up so I could view my website in my browser, but the browser does not use my local libs.

Here is the result of perl -e 'print "$_\n" for sort @INC' on the command line:

.
/etc/perl
/home/me/Documents/fantasy/files/lib
/home/me/perl5/lib/perl5
/home/me/perl5/lib/perl5/5.20.0
/home/me/perl5/lib/perl5/5.20.2
/home/me/perl5/lib/perl5/5.20.2/x86_64-linux-gnu-thread-multi
/home/me/perl5/lib/perl5/x86_64-linux-gnu-thread-multi
/usr/lib/x86_64-linux-gnu/perl/5.20
/usr/lib/x86_64-linux-gnu/perl5/5.20
/usr/local/lib/site_perl
/usr/local/lib/x86_64-linux-gnu/perl/5.20.2
/usr/local/share/perl/5.20.2
/usr/share/perl/5.20
/usr/share/perl5
[download]

Here is the list of libs my browser is looking in:

files/lib
/etc/perl
/usr/local/lib/x86_64-linux-gnu/perl/5.20.2
/usr/local/share/perl/5.20.2
/usr/lib/x86_64-linux-gnu/perl5/5.20
/usr/share/perl5
/usr/lib/x86_64-linux-gnu/perl/5.20
/usr/share/perl/5.20
/usr/local/lib/site_perl
[download]

I ran echo 'eval "$(perl -I$HOME/perl5/lib/perl5 -Mlocal::lib)"' >>~/.bashrc at the command line, and it added the following lines to my .bashrc file:

PATH="/home/me/perl5/bin${PATH:+:${PATH}}"; export PATH;
PERL5LIB="/home/me/perl5/lib/perl5${PERL5LIB:+:${PERL5LIB}}"; export P
+ERL5LIB;
PERL_LOCAL_LIB_ROOT="/home/me/perl5${PERL_LOCAL_LIB_ROOT:+:${PERL_LOCA
+L_LIB_ROOT}}"; export PERL_LOCAL_LIB_ROOT;
PERL_MB_OPT="--install_base \"/home/me/perl5\""; export PERL_MB_OPT;
PERL_MM_OPT="INSTALL_BASE=/home/me/perl5"; export PERL_MM_OPT;
eval "$(perl -I$HOME/perl5/lib/perl5 -Mlocal::lib)"
[download]

I already have several PATH statements above these lines and a PERL5LIB line, so I do not know if there is a conflict. Here are the lines:

# My changes to things
# export LC_ALL=C
export LC_COLLATE=C
export LESS=-SXi
export PERL5LIB="$HOME/Documents/fantasy/files/lib"

PATH="$PATH:$HOME/bin"
PATH="$PATH:$HOME/Documents/fantasy"
PATH="$PATH:$HOME/Documents/scripts"

export PATH

setterm --linewrap off
[download]

So can anyone tell me what I am missing here?

Thank you!

I wrote this little script to get numeric months for comparisons. The input can be in initial uppercase, all uppercase, and all lowercase. I added a few other languages for fun.

#!/usr/bin/perl
use strict;
use warnings;

my @month_numbers = (1..12);

my %month_names = (
  'English'      => [qw(January February March April May June July Aug
+ust Spetember October November December)],
  'English abbr' => [qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Now De
+c)],
  'Dutch'        => [qw(januari februari maart april mei juni juli aug
+ustus september oktober november december)],
  'French'       => [qw(janvier février mars avril mai juin juillet ao
+űt septembre octobre novembre décembre)],
  'German'       => [qw(Januar Februar März April Mai Juni Juli August
+ September Oktober November Dezember)],
  'Greek'        => [qw(Ianuários Fevruários Mártios Aprílios Máios Iú
+nios Iúlios Avghustos Septémvrios Októvrios Noémvrios Thekémvrios)],
  'Italian'      => [qw(gennaio febbraio marzo aprile maggio giugno lu
+glio agosto settembre ottobre novembre dicembre)],
  'Spanish'      => [qw(enero febrero marzo abril mayo junio julio ago
+sto septiembre octubre noviembre diciembre)],
);

my %months;
for my $language (keys %month_names) {
  @months{@{$month_names{$language}}} = @month_numbers;
  @months{map(uc $_, @{$month_names{$language}})} = @month_numbers;
  @months{map(lc $_, @{$month_names{$language}})} = @month_numbers;
}

sub get_month_number {
  my $month = shift;
  return $months{$month};
}
[download]

So, if you want the month number for July, you use it like the following.

print get_month_number('July');
[download]

The above will return 7.

Now you can put dates in the right order. I'll be modularizing this shortly. 8)

Updates

Code simplified from morgon's (no @month_numbers array) and poj's (case insensitive input) suggestions.

my %months;
for my $language (keys %month_names) {
  my $number = 0;
  $months{lc $_} = ++$number for @{$month_names{$language}};
}

sub get_month_number {
  my $month = lc shift;
  return $months{$month};
}
[download]

Added aprile to Italian list of months from AnomalousMonk.

Several weeks ago I was playing around with glob's ability to create lists from stringified lists. (The forth paragraph in the doc.) I at first wanted to see if I could feed it arrays directly, but I was shown by jeffa the lists had to be comma separated strings. After playing around with it for a few minutes, I thought about finding a way use arrays, so wrote the following.

Note: I do not like the name of the subroutine, so I am open to suggestions.

sub glob_array {
  my (%opt) = @_;
  
  my $joiner = $opt{'joiner'} ? $opt{'joiner'} eq ' ' ? "' '"  : $opt{
+'joiner'} : '';
  my $space  = $opt{'space holder'} ? $opt{'space holder'} : '_';

  # The arrays have to be strinified into comma separated lists. Thank
+ you to jeffa for showing me.
  my $arrays = [map { $_ = '{'.join( ',', @{$_} ).'}'; $_ =~ s/ /$spac
+e/g; $_; } @{$opt{'arrays'}}];

  my $string = join( $joiner, @$arrays );

  my @raw_array = glob "$string";
  my @array = map { $_ =~ s/$space/ /g; $_; } @raw_array;
  
  return \@array;
}
[download]

• The joiner is the character you wish to use to join the values of the arrays together. (If the joiner is a space, it has to be quoted, hence the complicated line of code for it.)
• The space holder converts the spaces in the values into the character of your choice. Spaces in the array values will muck up your output. (Sorry I can't explain that better.)
• The arrays are the list of array (refs) you want to use to make the list.

Here are some sample arrays and how they would look once glob has done its work.

my @colors     = qw(red green blue);
my @directions = qw(north south east west);
my @numbers    = (1..3);

my $array = glob_array( 'arrays' => [\@colors, \@directions, \@numbers
+], 'joiner' => ' ', 'space holder' => '__' );
[download]

Output

$VAR1 = [
          'red north 1',
          'red north 2',
          'red north 3',
          'red south 1',
          'red south 2',
          'red south 3',
          'red east 1',
          'red east 2',
          'red east 3',
          'red west 1',
          'red west 2',
          'red west 3',
          'green north 1',
          'green north 2',
          'green north 3',
          'green south 1',
          'green south 2',
          'green south 3',
          'green east 1',
          'green east 2',
          'green east 3',
          'green west 1',
          'green west 2',
          'green west 3',
          'blue north 1',
          'blue north 2',
          'blue north 3',
          'blue south 1',
          'blue south 2',
          'blue south 3',
          'blue east 1',
          'blue east 2',
          'blue east 3',
          'blue west 1',
          'blue west 2',
          'blue west 3'
        ];
[download]

I have yet to figure out how to make this more interesting by including a pattern or a single joiner. From the above output, instead of plain green west 2 having green sector west tower 2nd floor or something akin to it. I could pre-munge the lists, but adding the ability to use a pattern would be nice too.

So, I would like a new name for the subroutine and maybe some pointers on how to add in a pattern to this. Also, maybe a few good reasons to use this I may not be seeing other than making a list to use for random selection.