[已经解决][求助]不能删除文件，删除语句没反应

不死草

UID: 35536
帖子: 142
积分: 326
在线时间: 1 天 3 小时

1^# 不死草发表于 2008-05-12 18:06

[已经解决][求助]不能删除文件，删除语句没反应

QUOTE:

关于删除语句没反应

[Copy to clipboard] [ - ]

CODE:

#!/usr/bin/perl -w
use strict;
use Tk;
use Tk::DialogBox;

my $a = 3;

if ($a > 1)
{
  ErrorWarning("Error");                      #===>正常执行
  unlink "C:/lan/156.txt";             #===>执行不了！~没反应。。。
}

#Make a Error Warning
sub ErrorWarning
{
  my $errortemp = shift;
  my $main = MainWindow->new( );
  $main->Button( -text => $errortemp,
            -command => sub{exit}) ->pack(-side => "top");  #===>此句自动跳出程序
  MainLoop;
  return 0;
}

请教各位大虾，怎样我才能实现删除操作，为什么我的删除操作没反应？
******************************************************
才发现原来是方法直接跳出程序了，所以不执行下一句，那放在上一句就可以执行了；

[Copy to clipboard] [ - ]

CODE:

#重新编辑修改并解决问题
#!/usr/bin/perl -w
use strict;
use Tk;
use Tk::DialogBox;

my $a = 3;

if ($a > 1)
{
  unlink "C:/lan/156.txt";             #===>可以执行。
  ErrorWarning("Error");                      #===>正常执行并且可以执行删除操作。
}

#Make a Error Warning
sub ErrorWarning
{
  my $errortemp = shift;
  my $main = MainWindow->new( );
  $main->Button( -text => $errortemp,
            -command => sub{exit}) ->pack(-side => "top");  #===>此句自动跳出程序
  MainLoop;
  return 0;
}