[pm-h] write to empty files

[Mark Allen]

This kind of task is perfect for the module “Path::Tiny”

It has all of the functionality you’re talking about except the date stuff, and for that I’d probably choose Time::Piece because it’s shipped with core perl and can do date formatting easily. (See perldoc Time::Piece for all the details.) Path::Tiny *should* be in core Perl IMO but it’s a quick and dependency free download.

use 5.014;
use Path::Tiny;
use Time::Piece;

my $t = localtime; # Time::Piece object
say “$t”; # Fri Jun  8 01:25:46 2018

my $dir = path(“.”);
for my $f ( $dir->children() ) {
   $f->spew_utf8(“project xyz\n$t\n”)
}

Sent from Mail for Windows 10

From: rlharris at oplink.net
Sent: Thursday, June 7, 2018 11:58 PM
To: Houston Perl Mongers
Subject: [pm-h] write to empty files


My need is to write a string to each file in a directory (the same string,
such as, "project xyz", needs to be written to each file).  The files have
been created with "touch", run from a bash script; so the file length is
zero.  My system is Debian.

The operation "s//project xyz/" fails on a file of zero length. My Perl
skills are rusty, and I have spent more than an hour searching the web
without success, looking for a solution.

Even more useful to me would be the ability to write to each file in a
directory a string or a set of lines which include the current date and
the filename or the full filepath:

    project xyz
    documentname.tex
    2018.06.07 1950gmt

    project xyz
    /home/rlh/scratch/documentname.tex
    2018.06.07 1950gmt
_______________________________________________
Houston mailing list
Houston at pm.org
http://mail.pm.org/mailman/listinfo/houston
Website: http://houston.pm.org/

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/houston/attachments/20180608/f7da5868/attachment.html>