Warning: file_get_contents(/data/phpspider/zhask/data//catemap/3/html/72.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Html perl——在连接的末尾添加双引号和直角括号_Html_Perl_Join - Fatal编程技术网

Html perl——在连接的末尾添加双引号和直角括号

Html perl——在连接的末尾添加双引号和直角括号,html,perl,join,Html,Perl,Join,这是$estr声明:my$estr='“>”; 我试过无数种版本,这只是目前的版本 我想知道如何使这两个字符出现在这行的末尾,而不是下一行的开头 我在这件事上花了几个小时,前天也花了两个小时试图让论坛接受我的问题 非常感谢您的帮助。$nfilename中的字符串显然以换行符结尾。您是否从文件中读取了一行并保留了换行符?可用于从变量中删除尾随换行符。$nfilename中的字符串显然以换行符结尾。您是否从文件中读取了一行d保留换行符?可用于从变量中删除尾随换行符。解决此问题的方法有数百种,其中之一

这是$estr声明:my$estr='“>”; 我试过无数种版本,这只是目前的版本

我想知道如何使这两个字符出现在这行的末尾,而不是下一行的开头

我在这件事上花了几个小时,前天也花了两个小时试图让论坛接受我的问题


非常感谢您的帮助。
$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>