小编jm6*_*666的帖子

我有2个工作表的工作簿.

"Sheet2"有两列:

|    A    |      B        |
+---------+---------------+
|  code1  | description 1 |
|  code2  | Descr 2       |

Sheet1有几列,其中一列(D列)是代码.在这一栏中,我需要一个"投递箱",什么

• 将显示列Sheet2!B(描述),以及用户选择一个描述时
• 将从codecol 进入:A.

without additional helper columnSheet1 可以做到吗？(Excel 2010)

所以,在html中需要一些简单易懂的东西:

<select>
  <option value="code1">Description 1</option>
  <option value="code2">Descr 2</option>
</select>

当用户选择"Descr 2"时,表单获得"code2".

这个问题可能是重复的 - 但我不确定 - 如何: 如何在Excel中创建具有多个列的下拉列表,但唯一的答案是将其指向外部站点,其中解决方案是另一个问题.

添加了截图以获得更精确的说明:

究竟什么'使用5.014'启用？

请有人复制并粘贴,因为我无法在任何perldoc中找到它.(也许我是盲目的).在'perldoc功能'中只有5.10的一些东西.或者指向一些URL.

感谢名单.

编辑:

请先检查,你有什么回复.例如:试试这个:

use 5.008;
$s=1;
say "hello";

您将收到有关"说"的错误消息,因为perl 5.8不知道"说"

试试这个:

use 5.014;
$s=1;
say "hello";

你会得到错误

Global symbol "$s" requires explicit package name 

所以,"使用5.014" 启用 use strict,和use feature 'say'; - 默认情况下.

可能重复:
以编程方式检测色情图片的最佳方式是什么？

这里http://www.face-rec.org/algorithms/是一个关于人脸识别的好网站.我正在寻找一个解决方案,如何禁止上传XXX评级的图像.(或上传后自动删除它们).

这个区域有一些图像分析算法吗？

P:请不要LOL我,这是一个严重的问题...... :)

在tchrists broilerplate中,我发现在END块中明确关闭了STDOUT.

END { close STDOUT }

我知道结束并关闭,但我想知道为什么需要它.

当开始搜索它时,在perlfaq8中找到以下内容:

例如,您可以使用它来确保您的过滤器程序设法完成其输出而不填满磁盘:

END {
    close(STDOUT) || die "stdout close failed: $!";
}

并且无论如何也不理解.:(

有人可以解释(可能有一些代码示例):

• 为何以及何时需要它
• 我的perl过滤器如何以及在什么情况下可以填满磁盘等等.
• 没有它时出现问题...
• 等等？？

我想为我自己的"默认使用"制作一个模块,例如:

use My::perldefs;

具有以下内容(主要基于tchrist的帖子.)

use 5.014;
use strict;
use features qw(switch say state);

no warnings;
use warnings qw(FATAL closed threads internal debugging pack substr malloc
                unopened portable prototype inplace io pipe unpack regexp
                deprecated exiting glob digit printf utf8 layer
                reserved parenthesis taint closure semicolon);
no warnings qw(exec newline);

use utf8;
use open qw(:std :utf8);
use charnames qw(:full);
use feature qw(unicode_strings);
use Encode qw(encode decode);
use Unicode::Normalize qw(NFD NFC);
use Carp qw(carp croak confess cluck);
use autodie; …

这里是一个很好的问题及精彩tchrist的答案 7 + 24条+ 52建议和意见,如何使Perl程序UTF8安全.

但这里是19k CPAN模块.什么是可以做的区分"好"和"坏"？(从utf8的角度来看)

例如:File::Slurp如果您将阅读该文件

#use strict encoding warnings utf8 autodie... etc....
my $str = read_file($file, binmode => ':utf8');

您将根据命令行开关获得不同的结果,并且perl -CSDA不起作用.伤心.(是的,我知道比Encode :: decode("utf8",read_file($ file,binmode =>':raw'));会有所帮助,但无论如何都是SAD.

我的问题:

• 在这里有任何首选方式,如何测试/分类哪些CPAN模块是安全/准备/正确的？
• 在这里有一些测试::已经为utf8测试做了些什么？
• 在这里是类似于Perl ::批判性的utf8 - 什么会检查模块源可能的utf8错误？(因为手动检查7 + 24 + 52件事物的来源我无法归类为"简单的编程方式")
• 或任何其他方式？:)

据我所知,CPAN模块很多都不需要了解utf8.但这里有zilion其他应该是什么.

拜托,不要误解我.我喜欢Perl语言.我知道perl具有非常强大的utf8功能.(特别是5.14).以上并不意味着perl批判 - 但我(也可能是其他一些人)需要知道什么是CPAN模块,以及如何对它们进行分类......)

在使用多个CPAN模块进行开发时,最初一切顺利,但在最终测试中,您发现某些模块不支持utf8,因此您的部分工作无用 - 这实际上可能会导致一点幻灭.:(

编辑:

据我所知,unicode周围的所有复杂事物都有两个根源:

1. unicode本身 - 作为tchrist极好地分析了一些问题点
2. perl - 简单不能破坏所有工作模块,实时服务器等 - 所以需要保持向后兼容性.

我唯一的希望:perl6.是一种全新的,不同的语言.不需要保持任何向后兼容性.所以我希望,在perl6中默认一些事情是perl5中不可能做的事情,所有utf8事情都会更加直观.

但是,回到模块:@daxim告诉:"作者甚至不会透露他们的模块是否是污点安全的,这个功能存在了几十年!" - 这是一场灾难.也许(很可能,老实说也不知道怎么做),但也许我们到了那个时候,需要对CPAN提交提出更多更严格的限制.

在一方面,我对CPAN作者的志愿者作品非常满意.另一方面,发布源代码不仅仅是一个"正确"的言论自由 …

我在这里和这里也看到了以下结构:

exec > >(tee -a script.log)

我知道tee命令是什么,而(命令...)通常意味着command在子shell中执行,而exec用一个程序替换当前的shell,比如exec ls(但这里没有命令),另外的意思是什么的> >？

任何人都能澄清这种黑暗的威胁吗？

exec >{space}> (command)

@Seth？:)任何指针,我可以阅读更多关于这个魔法将不胜感激.:)

简单代码:

use 5.014;
use warnings;

my $re = <DATA>;
chomp $re;
my $re2 = qr/$re/;
say $re2;
__END__
^\w$

结果:

(?^u:^\w$)      #added the (?^u:

有没有正确的方法来反编译$ re2取回原来的正则表达式？

动机:正则表达式是配置值,因此需要:

• 阅读
• 编译它
• 将其保存到文件中供以后使用.

但是无法保存已编译的正则表达式以供以后使用,因为在每次编译时,正则表达式都扩展了(？^ u:,所以经过几个周期后,我结束时喜欢:

(?^u:(?^u:(?^u:(?^u:(?^u:^\w$)))))

因此问题是:

• 在这里有任何正确的方法,如何保存编译版本？
• 如果没有办法 - 如何反编译,获得原始版本？
• 任何的想法？

我有一个小shellcript .x

$ cat .x
u="Böhmáí"
touch "$u"
ls > .list
echo "$u" >.text

cat .list .text
diff .list .text
od -bc .list
od -bc .text

当我运行这个scrpit sh -x .x(-x仅用于显示命令)

$ sh -x .x
+ u=Böhmáí
+ touch Böhmáí
+ ls
+ echo Böhmáí
+ cat .list .text
Böhmáí
Böhmáí
+ diff .list .text
1c1
< Böhmáí
---
> Böhmáí
+ od -bc .list
0000000   102 157 314 210 150 155 141 314 201 151 314 201 012            
           B …

在perllexwarn中定义了所有可能设置的警告.

但这里没有任何关于,如何打印出我目前启用的警告.

例如:

use strict;
use warnings;

print warnings::enabled->pretty_print(); #fictional...

这怎么可能？

例:

use strict;
use 5.012;
use warnings;

my $aaa;
say "$aaa";

say warnings::enabled("uninitialized") ? "yes" : "no";

以上将输出:

Use of uninitialized value $aaa in string at y line 6.

no

所以,"未初始化"警告类别是"设置",因为它打印一个警告,但warnings::enabled("uninitialized")不返回true.