鉴于最近Perl版的风气，我决定正式退出Perl版块

stanley_tam

多谢方丈指点{:3_203:}
宠辱不惊，看庭前花开花落；去留无意，望天上云卷云舒

MMMIX

Monox 发表于 2014-05-23 10:00

嗯，当初的帖子我确实是有问无回，不过就像我上面所说的，那是因为我当时（现在仍然）认为我的那个帖子并没有得到充足的回复，那个帖子在当时算是没有解决，然后又没多少人对那个帖子感兴趣。

我觉得，你在那个帖子中真正的问题是对别人的回复没有任何回应。你认为别人没有给出充足的回复，可是你也没有告诉别人什么地方回复的不充足？看不明白别人的回复，或者认为别人的回复没有解决你的问题，你要说出来，别人才好进一步的解释，或者其他人才能提供另外的解释/解答，可是你啥都不说，别人怎么知道你没看明白？

你在那帖子中的表现让别人一看，只会给人留下这种印象：这哥们提问了，别人也解释，可他问完了就直接消失了，完全没有下文了，这整个一没礼貌的伸手党嘛。

MMMIX

perllover007 发表于 2014-05-23 10:05
对于新手尤其是想学习的新手，获取代码可以算是捷径。

从让别人帮你完成作业、工作的角度来说，直接获取代码当然是捷径，这和是不是新手没有关系，对老手来说这也是捷径。

直接让别人给代码的问题在于，你想让别人完成本该你完成的事情。这种提问的态度从根上就错了，这也是许多人如此厌恶伸手党的原因（之一）。

提问之前你首先要明确一点：这个问题是我自己要解决的问题。所以，在你就这个问题向别人求助时，你应该
1、清楚的描述问题本身
2、展示你为了解决这个问题做了什么努力
3、在你试图解决这个问题的过程中碰到了什么困难需要别人帮助

jason680

回复 30# MMMIX

Great job!!!

>>提问之前你首先要明确一点：这个问题是我自己要解决的问题。所以，在你就这个问题向别人求助时，你应该
>>1、清楚的描述问题本身
>>2、展示你为了解决这个问题做了什么努力
>>3、在你试图解决这个问题的过程中碰到了什么困难需要别人帮助
   

perllover007

赞同！有个问题可以请教吗？

能否帮忙检查一下这个代码啊？先谢了！

这段代码为了实现操作两个文本，通过检索关键词在表格相邻两行显示搜索到的英汉语对应的句子，但是结果不理想，请问什么原因？麻烦给诊断一下，谢谢！
use strict;
use warnings;
use UTF8;
use Win32::GUI qw(DT_RIGHT DT_LEFT DT_CENTER DT_VCENTER);
use Win32::GUI::Grid qw(GVS_DATA);
my $main = Win32::GUI::Window->new(
-name => ‘Main’,
-title => “arallel Corpus”,
-pos => [ 0, 0 ],
-size => [ 1200, 840 ],
);

$main->AddLabel(
-text => “lease fill the search word in the following blank”,
-top => 20,
-align => ‘center’,
-left => 35,
width => 300,
height => 30,
);
my $f1=$main->AddTextfield(
-name => “searchword”,
-align => ‘center’,
-left => 20,
-top => 60,
-width => 160,
-height => 30,
);

$main->AddButton(
-name => “search”,
-text => “GO”,
-pos => [ 190, 60 ],
-width => 110,
-height => 30,
-ok => 1,
);

my $grid=$main->AddGrid(
-name => ‘grid’,
-left => 20,
-top => 90,
-width => 1120,
-height => 560,
-rows => 1,
-columns => 2,
-fixedrows => 1,
);
$grid->SetRows(1);
$grid->SetCellText(0, 0, ‘No.’);
$grid->SetCellFormat(0, 1, DT_CENTER);
$grid->SetCellText(0, 1, ‘Result’);

$grid->SetColumnWidth(0, 50);
$grid->SetListMode();
$grid->SetFixedColumnSelection(0);

$main->Show();
Win32::GUI:ialog();
exit(0);
sub search_Click{
open(ZH,”ZH.txt”;
my @zh= ;
chomp(@zh);
open(EN,”EN.txt”;
my @en= ;
chomp(@en);
close ZH;
close EN;
foreach my $i(0..$#zh){
my $j=$i+1;
my %match;
$match{$zh[$i]}=$en[$i];
my $node = $main->searchword->Text();
if ( $en[$i] =~ /$node/i)

{

my $row = $grid->GetRows();
$grid->InsertRow(-1);
$grid->SetCellText($j, 0, $j);
$grid->SetCellText($j, 1, $en[$i]);

$grid->InsertRow(-2);
$grid->SetCellText($j, 0, $j);
$grid->SetCellText($j, 1, $zh[$i]);

}





回复 30# MMMIX


   

Monox

真欢乐，这个楼越歪越厉害了，而且我还被委婉的说成是伸手党了。
不过，不管我（曾经）是不是伸手党，我还是那个观点，我并不讨厌伸手党。再加上一点补充，不管有没有人说我是伸手党，我都努力不去做伸手党。
结论，我要弃楼了。
正式完全从Perl版退出，给我的回帖我也不会回应了。
至于是否弃CU，或者什么时候弃CU，这就是我的私事了，我并不打算像这楼一样给出什么交代。
祝各位Perler不管是留下的，还是终究要走的，都能得到自己想要的。Goodbye every Perler of CU.

sjdy521

人不能太把别人当回事，也不能太把自己当回事，走好

jason680

回复 33# Monox

“拿好” 走好，“放下”时 再回来。

See you on CU

104359176

我非常留意楼主的帖子，非常认真，专业，耐心超乎常人，这让我想起了唐风，在极端失望的情况下，退出 Perl 社区多年。就好象种一块田，本是基于兴趣，但施肥多年，不但没有收获，反而要承担更多的责任。

fender0107401

“伸手党”是比较讨厌，不过那种“作业党”更讨厌。