小编Per*_*eri的帖子

我的天数从 1 到 180 天，从 $epoch='2020-05-11' 开始减少和增加日期。整个周期 = 365.25 天，最后将添加幅度、频率和相位以创建正弦波。这不是附加的完整代码，但我需要每天将其转换为弧度或相关联？如何解决这个问题，我通过互联网搜索只是从度数转换为弧度。

数据输入来自 bat 文件，更容易进行更改：

C:\Strawberry\perl\bin\perl.exe D:\perl\ex4444.pl Peri_GPS ZAT1_GPS 2020-05-11 180
pause

和代码本身：

#!/usr/bin/perl
use Math::Random::OO::Normal;
use Time::Local;
use Time::Localtime;
use POSIX qw(strftime);

my $filename = 'D:\perl\program.txt';
    open (FH, '>', $filename) 
        or die $!;
        
my ($station1, $station2, $epoch, $count_day) = @ARGV; 

$day_a2 = -1;
$day_a1 = $day_a2 - $count_day;
$day_a3 = 1;
$day_a4 = $day_a3 + $count_day;

my ($year, $month, $day) = split('-', $epoch);

$epoch = timelocal(0, 0, 0, $day, $month-1, $year-1900); …