有人可以为我提供良好的链接来制作这样的网站..我的意思是设计真的很棒,我想做一些新的和更专业的东西,而不仅仅是在Photoshop中设计然后制作一个框架和瞧..
http://fusionmedia.dk/ http://tjenonline.dk/
再次,我想学习如何做这样的网站,菜单栏和整个设计是大而舒适的所有屏幕解决方案..我相信它的CSS和HTML正常(当我按下查看源,它就像那样)
我希望以下2张照片是相同的.
@a=(a..z);
print "@a\n";
print @a;
Run Code Online (Sandbox Code Playgroud)
但实际上,它给了我这个:
a b c d e f g h i j k l m n o p q r s t u v w x y z
abcdefghijklmnopqrstuvwxyz
Run Code Online (Sandbox Code Playgroud)
为什么多余的空间?
我正在使用ActivePerl for Windows.
通过以下2个答案,我想出了这个:
use English;
$LIST_SEPARATOR="*";
@a=(a..z);
print "@a\n";
Run Code Online (Sandbox Code Playgroud)
它给了我这个:
a*b*c*d*e*f*g*h*i*j*k*l*m*n*o*p*q*r*s*t*u*v*w*x*y*z
Run Code Online (Sandbox Code Playgroud) 下面的代码只适用于没有严格的代码.谁能建议一个更好的方法呢?
%hash5=('key5', 5);
my $hash_name = 'hash5';
print $$hash_name{'key5'}, "\n";
Run Code Online (Sandbox Code Playgroud)
我的目标:我不知道哈希名称.我只知道,它存储在变量$ hash_name中.人们一直在建议:
my $hashref = \%hashABC;
Run Code Online (Sandbox Code Playgroud)
这需要我知道哈希名称是'%hashABC'.在上面使用这个例子,我想做某事:
my $hash_name = 'hashABC';
my $hashref = \%$hash_name; # not possible, hope u get the aim
Run Code Online (Sandbox Code Playgroud)
现在我不再需要知道哈希的名字了.这就是我想要的.
很多人!(perl 5)
我对Perl模块感到困惑.我得到一个模块可以用来转储一大堆子,整理主代码.
但是,模块之间的关系是什么?
模块可以"使用"其他模块吗?
我必须使用导出,还是可以放弃那些东西?
我如何解决循环使用?(Security.pm使用Html.pm和Html.pm使用Security.pm).我知道明显的答案,但在某些情况下我需要使用Security.pm例程,Html.pm反之亦然 - 不知道如何解决问题.
如果我从所有模块中删除所有"use"子句......那么我必须使用完整的子限定符.例如,Pm::Html::get_user_friends($dbh, $uid)将用于Security确定朋友是否是被禁用的用户(被禁止的是其中一部分Security).
我只是没有得到这个模块的东西.所有"教程"只涉及一个模块,从不多重,也不使用真实世界的例子.
我遇到多个模块的唯一一次是使用OO代码.但没有任何东西可以确切地告诉我多个模块如何相互作用.
230215 01/16/2000 57533 "" 0 1045403 "" ? 0 0 217623
230215 01/18/2000 77659 "" 0 1045403 "" ? 0 0 217624
230215 01/25/2000 76583 "" 0 1045403 "" ? 0 0 217625
230215 01/29/2000 58082 "" 0 1045403 "" ? 0 0 217626
230216 01/14/2000 50020 "" 0 1045403 "" ? 0 0 217627
230216 01/18/2000 66444 "" 0 1045403 "" ? 0 0 217628
230216 01/19/2000 51330 "" 0 1045403 "" ? 0 0 217629
Run Code Online (Sandbox Code Playgroud)
所有字段都用空格分隔,我需要将它存储到二维数组中.实际上有500万行像这样.例如,我想将它存储到像$ arr [7] …
我使用Perl进行字符串操作,并且使用反向函数和tr来翻译我的字符串.该脚本读取一些字符串,然后执行以下操作:
$revread = reverse($newword);
$revread =~ tr/TACGN/ATGCN/;
Run Code Online (Sandbox Code Playgroud)
所以这个词被反转然后被翻译 - 反向补充.我有以下问题:
如果
$revread=~ tr/TACG/ATGC/;
Run Code Online (Sandbox Code Playgroud)
用来.在这种情况下,如果找到"N",它会被跳过吗?因为我没有任何东西可以将它翻译成OR,它将被打印为"N".
ID Cat 1 Car 2 Education 3 Mathematics 4 Physics 5 Astrophysics
基于此列表,我想以下列方式生成和访问数组:
Array
(
[0] => Array
(
[id] => 1
[cat] => car
)
[1] => Array
(
[id] => 2
[cat] => Education
)
[2] => Array
(
[id] => 3
[cat] => Mathematics
)
)
Run Code Online (Sandbox Code Playgroud)
等到阵列结束.
我如何格式化这个例子:
100000为1000.00
和
90为0.90
用Perl?
我发现,用像一些模块尝试Locale::Currency::Format和Number::Format,但没有工作:/
随着Locale::Currency::Format我尝试:
use Locale::Currency::Format;
my $total = 19750;
my $convert = currency_format('USD',$total,'FMT_COMMON');
print $convert;
Run Code Online (Sandbox Code Playgroud)
我预计197.50但是印刷品是"19,750.00美元".
在Perl中我有一个URL读取health+development,我想+从中间删除它,以便它可以读作health development.任何想法都会节省我的时间.