Html perl——在连接的末尾添加双引号和直角括号
这是$estr声明:my$estr='“>”; 我试过无数种版本,这只是目前的版本 我想知道如何使这两个字符出现在这行的末尾,而不是下一行的开头 我在这件事上花了几个小时,前天也花了两个小时试图让论坛接受我的问题Html perl——在连接的末尾添加双引号和直角括号,html,perl,join,Html,Perl,Join,这是$estr声明:my$estr='“>”; 我试过无数种版本,这只是目前的版本 我想知道如何使这两个字符出现在这行的末尾,而不是下一行的开头 我在这件事上花了几个小时,前天也花了两个小时试图让论坛接受我的问题 非常感谢您的帮助。$nfilename中的字符串显然以换行符结尾。您是否从文件中读取了一行并保留了换行符?可用于从变量中删除尾随换行符。$nfilename中的字符串显然以换行符结尾。您是否从文件中读取了一行d保留换行符?可用于从变量中删除尾随换行符。解决此问题的方法有数百种,其中之一
非常感谢您的帮助。
$nfilename
中的字符串显然以换行符结尾。您是否从文件中读取了一行并保留了换行符?可用于从变量中删除尾随换行符。$nfilename
中的字符串显然以换行符结尾。您是否从文件中读取了一行d保留换行符?可用于从变量中删除尾随换行符。解决此问题的方法有数百种,其中之一是:
示例中的$mylist(打印前)包含:
$mylist = join("",$first, $file, $last, $title, $nfilename, $estr);
print $mylist;
我会解决的
顺便说一句:$last结尾的“>”,似乎也错了。有数百种方法可以解决这个问题,其中之一是: 示例中的$mylist(打印前)包含:
$mylist = join("",$first, $file, $last, $title, $nfilename, $estr);
print $mylist;
我会解决的
顺便说一句:$last结尾的“>””似乎也错了。请查看您是否找到以下代码的用法 它在本地目录中查找JPG文件并生成网页
$mylist =~ s/[\r\n]+//;
$mylist .="\n";
使用严格;
使用警告;
使用特征“说”;
我的$dir=';
我的@文件;
在glob('*.jpg')的同时推送@files,$\uuu;
my$title=‘JPEG格式的图片’;
我的$space=“\n\t\t\t”;
我的$style='宽度:100%';
我的$html
$title
';
对于(@文件){
/(.*)\.jpg/;
我的$title=$1;
$title=~s/[-\]//g;
$html.=“$space title=\”\u$title\”;
$html.=“$space”;
}
$html.='
';
比如说$html;
输出
use strict;
use warnings;
use feature 'say';
my $dir = '.';
my @files;
push @files, $_ while glob('*.jpg');
my $title = 'Pictures in JPEG format';
my $space = "\n\t\t\t";
my $style = 'width:100%';
my $html = '
<html>
<head>
<title>$title</title>
</head>
<body>';
for (@files) {
/(.*?)\.jpg/;
my $title = $1;
$title =~ s/[-_]/ /g;
$html .= "$space title = \"\u$title\"";
$html .= "$space<img src=\"$_\" style=\"$style\">";
}
$html .= '
</body>
</html>';
say $html;
JPEG格式的图片
title=“文件08”
title=“文件09”
title=“文件01”
title=“文件02”
title=“文件03”
请查看您是否找到以下代码的用途
它在本地目录中查找JPG文件并生成网页
$mylist =~ s/[\r\n]+//;
$mylist .="\n";
使用严格;
使用警告;
使用特征“说”;
我的$dir=';
我的@文件;
在glob('*.jpg')的同时推送@files,$\uuu;
my$title=‘JPEG格式的图片’;
我的$space=“\n\t\t\t”;
我的$style='宽度:100%';
我的$html
$title
';
对于(@文件){
/(.*)\.jpg/;
我的$title=$1;
$title=~s/[-\]//g;
$html.=“$space title=\”\u$title\”;
$html.=“$space”;
}
$html.='
';
比如说$html;
输出
use strict;
use warnings;
use feature 'say';
my $dir = '.';
my @files;
push @files, $_ while glob('*.jpg');
my $title = 'Pictures in JPEG format';
my $space = "\n\t\t\t";
my $style = 'width:100%';
my $html = '
<html>
<head>
<title>$title</title>
</head>
<body>';
for (@files) {
/(.*?)\.jpg/;
my $title = $1;
$title =~ s/[-_]/ /g;
$html .= "$space title = \"\u$title\"";
$html .= "$space<img src=\"$_\" style=\"$style\">";
}
$html .= '
</body>
</html>';
say $html;
JPEG格式的图片
title=“文件08”
title=“文件09”
title=“文件01”
title=“文件02”
title=“文件03”
我最近有一个zstroke,它破坏了左手上的3 fingerd-很难输入,所以这个脚本将节省我很多输入。我是一名艺术家,将制作galley pagex来显示图像。你可以制作一个可用的directpru,其中包含x-1.jpg、x-2.jpg等条目。这将起作用——只需更改$dir变量即可。我最近有一个zstrokech销毁了左手上的3 fingerd-很难键入,因此此脚本将节省我大量键入时间。我是一名艺术家,将制作galley pagex以显示图像。您可以使用诸如x-1.jpg、x-2.jpg等条目制作一个可用的directpru。这将起作用-只需更改$dir变量。George-非常感谢。我现在有了完美的行来删除into flexbox感谢您——是的,$last的结尾是用来完成CSS短语的。(我写这篇文章的目的是为了更好地打字,它可以用黑桃来完成。乔治——非常感谢您。我现在有了完美的线条可以放进flexbox感谢您——是的,$last的结尾是用来完成CSS短语的。)。(我写这篇文章的目的是为了更好地学习打字,而且它能做到这一点。
use strict;
use warnings;
use feature 'say';
my $dir = '.';
my @files;
push @files, $_ while glob('*.jpg');
my $title = 'Pictures in JPEG format';
my $space = "\n\t\t\t";
my $style = 'width:100%';
my $html = '
<html>
<head>
<title>$title</title>
</head>
<body>';
for (@files) {
/(.*?)\.jpg/;
my $title = $1;
$title =~ s/[-_]/ /g;
$html .= "$space title = \"\u$title\"";
$html .= "$space<img src=\"$_\" style=\"$style\">";
}
$html .= '
</body>
</html>';
say $html;
<html>
<head>
<title>Pictures in JPEG format</title>
</head>
<body>
title = "File 08"
<img src="file-08.jpg" style="width:100%">
title = "File 09"
<img src="file-09.jpg" style="width:100%">
title = "File 01"
<img src="file_01.jpg" style="width:100%">
title = "File 02"
<img src="file_02.jpg" style="width:100%">
title = "File 03"
<img src="file_03.jpg" style="width:100%">
</body>
</html>