#!/usr/bin/perl -w
# prints dir list of .jpg filenames to screen
# and adds HTML markup for flexbox
use strict;
use warnings;
use Text::Autoformat;
my $file;
my $nfilename;
my $first = '<img src="';
my $last = '" style="width:100%"> ';
my $title = 'title = "';
my $estr = '">';
my $dir = "/home/clair/cp-perl/";
my $mylist;
opendir(DIR, $dir) or die $!;
while ($file = readdir(DIR)) {
# Use a regular expression to ignore files beginning with a period
next if ($file =~ m/^\./);
next if (substr $file, -1) ne "g";
#***************************************
# get rid of extension and replace hyphen with space
$nfilename=$file;
$nfilename=~s/.jpg//;
$nfilename =~ s/-/ /g;
# ****************************************
#capitalizewords in filename to be a title
my $formatted = autoformat $nfilename, { case => 'highlight' };
chomp($nfilename);
# ****************************************
$mylist = join("",$first, $file, $last, $title, $nfilename, $estr);
# *************************
# thanks to George Mavridis - stackoverflow
$mylist =~ s/[\r\n]+//;
$mylist .="\n";
# *************************
print $mylist;
}
closedir(DIR);
exit 0;
Это первые 3 строки вывода, которые я получаю сейчас:
<pre>
<img src="out-of-the-night.jpg" style="width:100%"> title = "Out of the Night
"><img src="homage-to-borgeson.jpg" style="width:100%"> title = "Homage to Borgeson
"><img src="autumn-in-vermont.jpg" style="width:100%"> title = "Autumn in Vermont
</pre>
Эти первые два символа должны быть в КОНЦЕ строк, например:
<pre>
<img src="out-of-the-night-sm.jpg" style="width:100%"> title = "Out of the Night">
<img src="homage-to-borgeson.jpg" style="width:100%"> title = "Homage to Borgeson">
<img src="autumn-in-vermont-sm.jpg" style="width:100%"> title = "Autumn in Vermont">
</pre>
вот строка соединения:
$mylist = join("",$first, $file, $last, $title, $nfilename, $estr);
print $mylist;
Это объявление $estr: my $estr = '">'; я пробовал бесчисленное количество вариантов этого - это только текущий.
Я хочу знать, как заставить эти два символа отображаться в КОНЦЕ строки, а не в начале следующей строки.
Я потратил несколько часов на это одно, а также два часа позавчера, пытаясь заставить форум принять мой вопрос.
Большое спасибо за любую помощь. Клэр
