自动计算要改多少周，输入料号后 按回车键自动显示原本周期 ，再按回车输出资料

#! c:/Perl/bin/perl.exe -w

use Genesis;

use Tk 800.000;

use Encode;

use Win32::API;

$f = new Genesis;

require 'shellwords.pl';

use Archive::Tar;

#计算周期

my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) = localtime(time);

$num = $yday + 2;

if ( $num % 7 == 0 ){

$result = $num / 7;

}else{

$result = int( $num / 7 + 1 );

}

if ( $result % 2 == 0 ){

$result = $result + 1;

}

$year = $year + 1900;

$year =~ m/\w\w(\w\w)/;

if ( $result < 10 ){

$result = "0$result";

}

$yzq = "$1$result";

$uto = 0;

$ubo = 0;

#用户界面

$name0 = "检查";

$name0 = decode( "cp936", $name0 );

$name1 = "退出";

$name1 = decode( "cp936", $name1 );

$name2 = "确定";

$name2 = decode( "cp936", $name2 );

$name3 = "输入STEP:";

$name3 = decode( "cp936", $name3 );

$name4 = "输入编号:";

$name4 = decode( "cp936", $name4 );

$name6 = "原周期:";

$name6 = decode( "cp936", $name6 );

$name7 = "新周期:";

$name7 = decode( "cp936", $name7 );

$name8 = "输出文件前缀名:";

$name8 = decode( "cp936", $name8 );

$name10 = "改周期^专业Genesis perl 电话15914352464 QQ531074924";

$name10 = decode( "cp936", $name10 );

$mw = MainWindow->new( -title => $name10);

$mw->configure( -background => 'green3' );

$mv = $mw->Frame( -background => 'green3' )->pack( -side => 'bottom', -fill => 'both' );

$m1 = $mw->Frame( -background => 'lightblue1' )
->pack( -side => 'bottom', -fill => 'both' );

$m2 = $m1->Frame( -background => 'steelblue1' )
->pack( -side => 'bottom', -fill => 'both' );

#前端显示

$mw->update;

Win32::API->new( "user32", "SetWindowPos", [qw(N N N N N N N)], 'N' )->Call( hex( $mw->frame() ), -1, 0, 0, 0, 0, 3 );

#输入编号

$m1->Label(

-text => $name4,

-background => 'lightblue1',

-foreground => 'purple',

-font => [ -size => 15 ]

)->pack( -padx => 0, -side => 'left' );

my $font = $m1->Entry(

-width => 11,

-background => 'lightblue1',

# -textvariable => \$job,

-font => [ -size => 15 ]

);

$font->pack( -padx => 0, -side => 'left' );

$font -> focus;

#if($og == 0){

# $og = 1;

#$font -> bind('<Return>'=>\&org);

#}else{

# $og = 0;

#$font -> bind('<Return>'=>\&can);

#}

$font -> bind('<Return>'=>sub{&org});

#选择拼版

$m1->Label(

-text => $name3,

-background => 'lightblue1',

-foreground => 'purple',

-font => [ -size => 15 ]

)->pack( -padx => 0, -side => 'left' );

$step = 'pnl';

my $c_s = $m1->Entry(

-width => 8,

-background => 'lightblue1',

-foreground => 'purple',

-textvariable => \$step,

-font => [ -size => 15 ]

);

$c_s->pack( -padx => 0, -side => 'left' );

#原周期

$m2->Button(

-text => $name6,

-background => 'steelblue1',

-command => \&org,

-font => [ -size => 15 ]

)->pack( -side => 'left',

-padx => 0 );

my $font2 = $m2->Entry(

-width => 6,

-background => 'lightblue1',

-textvariable => \$gzq,

-font => [ -size => 15 ]

);

$font2->pack( -padx => 5, -side => 'left' );

#新周期

$m2->Button(

-text => $name7,

-background => 'steelblue1',

-command => \&main,

-font => [ -size => 15 ]

)->pack( -side => 'left',

-padx => 0 );

my $font1 = $m2->Entry(

-width => 8,

-background => 'lightblue1',

-textvariable => \$yzq,

-font => [ -size => 15 ]

);

$font1->pack( -padx => 0, -side => 'left' );

$mv->Button(

-text => $name2,

-background => 'green3',

-command => \&can,

-font => [ -size => 18 ]

)->pack( -side => 'left',

-padx => 30 );

$mv->Button(

-text => $name0,

-background => 'green3',

-command => \&main,

-font => [ -size => 18 ]

)->pack( -side => 'left',

-padx => 30 );

$mv->Button(

-text => $name1,

-background => 'green3',

-command => sub { exit },

-font => [ -size => 18 ]

)->pack( -side => 'right',

-padx => 30 );

MainLoop;