如何在perl中打印日期？
在Perl中打印日期可以使用内置的日期和时间模块DateTime来实现。下面是一个示例代码：
use DateTime;
my $dt = DateTime->now;
print $dt->ymd; # 打印日期，格式为YYYY-MM-DD上述代码首先使用DateTime->now创建一个当前日期和时间的对象$dt，然后使用$dt->ymd方法打印日期部分。
除了ymd方法，DateTime模块还提供了其他方法来打印日期和时间的不同部分，例如：
$dt->year：打印年份$dt->month：打印月份$dt->day：打印天数$dt->hour：打印小时$dt->minute：打印分钟$dt->second：打印秒数
你可以根据需要选择适合的方法来打印日期和时间的不同部分。
关于腾讯云相关产品和产品介绍链接地址，由于要求不能提及具体的云计算品牌商，我无法提供相关链接。但你可以在腾讯云官方网站上查找与日期相关的产品和文档。
相关·内容
我对perl没有经验，我需要创建一个实用程序，它将在添加偏移量之后打印日期，格式字符串是一个strftime格式字符串。
格式：./adddate number_of_days format_string
示例：./adddate -1 "%a，%b %d“#打印昨天的日期
浏览 4提问于2012-09-08得票数 1
3回答
我使用以下代码在cgi-perl中打印今天的日期：
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
localtime(time);
$year = $year + 1900;
$mon++;
print "$mday/$mon/$year\n";
我需要准确打印当前日期前7天(1周)的日期。
浏览 7提问于2017-07-27得票数 0
我计划在变量test-ing=3.0中使用(连字符-)，但无法打印值$test-ing。我知道连字符不会在shell上工作，有没有可能在不更改变量名的情况下打印变量值？
浏览 0提问于2020-01-23得票数 5
回答已采纳
#!/usr/bin/perl
my $a;
$a=qx(date --date "+3 min" '+ %Y/%m/%d-%H:%M:%S');
system( q(perl -pi.back -e 's{/2013/07/31-05:54:14/}{$a}g;' /tmp/ron/replace.txt));
我正在从服务器获取日期，并将其添加到3mins中，并将其赋值给$a变量，但我无法使用one行打印该日期。如何在perl中打印一个变量？
浏览 3提问于2013-07-30得票数 0
我想在syslog中搜索比特定搜索模式更大的日期。例如，我希望找到日期大于JAN 6 16:24:00的每个syslog条目。我知道我可以使用sed (sed -n '/JAN 6 16:24:00/,$p' ${LOGFILE})，但这只有在我在sed中指定的确切日期的条目存在的情况下才能工作--如果日志文件中没有包含确切JAN 6 16:24:00的条目，我将不会得到输出，因为没有真正的逻辑，只有字符串比较。
我知道journalctl --since "XXX"，但这可能运行在一个不基于SystemD的主机上，但基本上我需要这个功能。
是否有一种方法
浏览 0提问于2022-01-15得票数 0
回答已采纳
您好，我正在尝试将日期存储在变量$date中。然后，我将使用Excel::Writer::XLSX将日期打印到一个单元格中。我使用的是perl 5.8。我知道很多用于获取日期的模块，比如TimePiece，都安装在perl的后续版本中。
浏览 26提问于2019-10-19得票数 0
3回答
是否有方法在同一行上打印多行输出(单输出)？
例如，如果输出是：
abc
def
qwerty
是否可以打印：
abcdefqwerty
浏览 0提问于2017-12-22得票数 21
我有一个相当复杂的文本文件file1.txt，没有被正确地处理。但是，文件是由制表符分隔的，即每个字符串都由\t分隔。
我想编写一个脚本/使用Unix命令，该命令为某个字符串string1:解析整个文件，该命令将在冒号后面打印行，直到\t停止。
文本文件如下所示：
...kjdafhldkhlfak\tSTRING1:Iwanttokeepthis\tfadfasdafldafh\tSTRING1:andthis\tafsdkfasldh....
所以grep类函数输出
Iwanttokeepthis
andthis
在Perl中，如果字符串发生在
perl -wln -e 'prin
浏览 1提问于2017-01-08得票数 0
回答已采纳
1回答
当我使用下面的代码时，我会打印所有技术的日期。
while( my ( $A1, $Days, $package, $Tech)= $TF_QUERY->fetchrow_array())
{
print "$file $A1,$Days,$package,$tech";
}
A1 Days package Tech
001 10 value1 2g
001 10 value1 3g
001 10 value1 wifi
001 10 value1 NA
我想以下
浏览 1提问于2015-03-19得票数 0
回答已采纳
1回答
我有几个ISO-8601期间的日期，例如：
( a) P7M2D
( b) P142D
(a =2天前的7个月) (b = 142天前)
我试图找出是否有一种使用bash脚本(shell)的方法，看看我是否可以从中计算出日期。如果今天的是2019年10月25日的，那么答案是：
a为:2019年3月23日
b为:2019年6月5日
理想情况下，它应该以yyyy/mm/dd格式打印日期。
$> ./script.sh P7M2D
2019/03/23
$> ./script.sh P142D
2019/06/05
想知道这在Python中是否更容易实现，尽管可以在
浏览 0提问于2019-10-25得票数 0
回答已采纳
我正在使用Ubuntu12.04从bash的perl脚本中打印进度。当我用这个：
foreach my $filename (sort @files) {
print "Processing $filename...\n";
它打印每条进度线，在每个打印之间有大约2秒的间隙，这很好。但是有几个文件，所以很吵。我试着用这个代替：
print "\rProcessing $filename...";
但是现在我根本没有输出，直到脚本到达最后一个文件，然后这是我看到的唯一的print语句(最后一个)。顺便提一句，我不关心删除以前打印的语句，因为每个语句的长度都
浏览 4提问于2014-06-04得票数 0
回答已采纳
我有一堆数据存储在按日期标记的子目录中。我使用了Cwd命令来获取当前的工作目录，这样我就可以将它打印到我正在用子目录中恢复的数据编写的vi文件中。我使用Cwd作为数据字符串的前缀。是否有方法只打印当前目录名而不打印路径？
示例：
而不是印刷-
/d2/aschwa/archive_data/METAR_data/20120302KDUX 121255Z.........
有没有办法只打印-
20120302KDUX 121255Z.........
这是我用的密码-
use strict;
use warnings;
use file::find;
use Cwd;
my @folder
浏览 7提问于2013-10-28得票数 0
回答已采纳
1回答
我是一个完全的新手，但我感谢任何人和所有的帮助。我正在运行这个脚本来查找与特定序列匹配的子目录中的字符串，然后将结果打印到一个新文件中。子目录被命名为"20110101“、"20110102”、"20110103“等。它可以很好地找到字符串，但在将它们打印到新文件时，它会将它们的顺序打乱。它将在打印20110129之前打印20110107。我如何修复这个问题，使其按照字符串在子目录中的顺序打印字符串？提前感谢你的帮助。
use strict;
use warnings;
use File::Find;
my $starting_path = "/d2/asch
浏览 3提问于2013-10-26得票数 0
1回答
我在perl中到处乱搞，我想构建一个脚本来打印曲棍球点和助攻，以及日期。它大约是40行，我想将日期与这2条信息联系起来。我被困在如何实现这个问题上了。
大约10/24 2目标1助攻
同时过滤总数。我可以在一个简单的DB中这样做，并使用SQL，但这似乎是一个过于夸张的解决方案。(另外，我还想学习更多的perl)。我觉得我可能想得太多了。任何帮助都是非常感谢的。
浏览 5提问于2022-11-24得票数 0
1回答
问题：
#!/bin/bash
x=$1
perl -lne 'print "$x is $_"' $1
如何在我的第4行中计算$1，每次通过perl-oneliner打印时，打印单引号内的$1？
浏览 0提问于2020-05-02得票数 1
回答已采纳
我们可以在perl脚本中编写shell脚本吗？
示例:程序1：
cat test1.sh
#!/bin/ksh
DATE=/bin/date
方案2：
cat test2.sh
#!/bin/ksh
. ./test1.sh
echo `$DATE`
方案3：
cat test3.pl
#!/usr/bin/perl
### here I need to source the test1.sh script
print `$DATE`'
如何在perl中编写shell源代码，以便在执行test3.pl时打印日期
谢谢你，拉古
浏览 5提问于2010-09-09得票数 2
我需要一个shell脚本，它可以解析传入的日期值并以标准格式打印。
传入日期模式如下：
"yyyyMMdd HHmmss"
"yyyyMMdd_HHmmss"
"MMddyyyy:HHmmss"
"MMddyyyyHHmmssmillisecond"
20170426 102300
20170426_102300
04262017:102300
0426201710230066
输出日期模式：
yyyyMMdd_HHmmSS 20170426_102300
浏览 5提问于2017-04-27得票数 0
回答已采纳
可能重复：
我正在读取特定文件中的字符串。它的问题在于它包含转义字符，例如：
Hello!\nI\'d like to tell you a little \"secret\"...
我希望没有转义序列的情况下打印出来，比如：
Hello!
I'd like to tell you a little "secret".
我考虑删除单个反斜杠，并将double替换为single (因为\表示为\ \)，但这无助于处理\n、\t等问题。在尝试摆弄丑陋而复杂的替换字符串之前，我想我会问--也许Perl有一个内置的机制来进行这种转换？
浏览 2提问于2010-10-02得票数 6
回答已采纳
我有一个简单的脚本perlSample.pl，只打印日期和时间：
my $cmd = 'perl -e \'my $datestring = localtime( time );print $datestring\'';
my $line = `$cmd 2>&1`;
my $ret = $?;
print $line;
这个脚本在Ubuntu中运行得很好，但是当我在Windows Xp上运行时，它会给我一个错误：
Can't find string terminator "'" anywhere before EO
浏览 0提问于2015-01-02得票数 0
2回答
我对shell脚本还不熟悉。我想要一个脚本得到任何日期作为输入从用户和打印日期3天前？
示例:如果用户输入日期为2013-01-01，则输出应为
2012年-12-29
浏览 4提问于2014-01-05得票数 1
回答已采纳
2回答
使用grep，我可以在我的文档中打印大写字母"Z“的所有出现。但是，输出将显示找到文档中每个"Z“的整行。我需要限制在每次出现"Z“之前只打印10个字母。
例如，如果文件中有一行"AAAABBBBBBBBBCCCCCCDDDDDDDZ"，它将打印"CCDDDDDDD"，这10个字母出现在前面。
如果"Z“之前的字母少于10个，则无需打印。
如果"Z“在一行中多次出现，则应打印这些”Z“前面的10个字母，例如："AAAABBBBBBBBBZCCCCCDDDDDDDZ”将打印"ABBBBBBBBB“和&
浏览 0提问于2013-07-21得票数 1
使用awk，我可以在CSV中打印任何列，例如，这将在file.csv中打印第10列。
awk -F, '{ print $10 }' file.csv
如果我需要打印列5-10，包括逗号，我只知道这样：
awk -F, '{ print $5","$6","$7","$8","$9","$10 }' file.csv
如果我想打印许多列，这个方法就不太好了。是否有更简单的语法在awk中打印CSV中的列范围？
浏览 3提问于2014-08-23得票数 5
回答已采纳
2回答
我需要一些帮助来将日期转换为字符串
我的unix机器上运行着一个sql数据库，它将日期存储在str中，例如:1371509465。
我想运行一个查询，以查找数据库中是否存在任何未来日期
在shell中有没有与php的strtotime等价的函数？
浏览 0提问于2013-05-03得票数 1
我用perl.My写了一个程序，要求只打印十进制数，不能打印指数数。你能告诉我如何实现它吗？我的程序正在计算表达式1/2power(N)，其中n只能取1到200之间的整数。并且只应打印100行。
示例: N=1，打印0.5 N=2，打印0.25
我的程序看起来像这样：
#!/usr/bin/perl
use strict;
use warnings;
my $exp;
my $num;
my $count_lines = 0;
while($exp = <>)
{
next if($exp =~ m/^$/);
浏览 1提问于2014-05-26得票数 1
我有一个csv文件，内容如下：
"Name","Payment",...,"DATE"
"Mike","40",...,"12252012"
"Jack","55",...,"01162013"
...
该文件包含了大约几千个这样的列表。还有一些字段的值可能是8位或更长的数字。有一件事是肯定的:日期字段是最后一列。
如何将其中的日期列从MMDDYYYY更改为YYYYMMDD格式？
在Korn Shell中更好。
谢谢。
浏览 0提问于2013-03-13得票数 0
回答已采纳
我在这里所要做的就是，如果日或月是一位数，则在其前面添加一个零。现在它打印的日期是201188，而我要找的是20110808。
#!/usr/bin/perl
use Date::Calc qw(Add_Delta_Days);
my (undef, undef, undef, $day, $month, $year) = localtime();
$year +=1900;
$month +=1;
($year, $month, $day ) = Add_Delta_Days($year, $month, $day, -3)
if ($month =~ /\d{1}/){
s
浏览 1提问于2011-08-12得票数 5
下面是我的十进制变量：
my $variable = 1.0;
当我尝试打印变量时，
print "$variable\n";
我得了1.0分。
但是，如果我将其传递给一个函数：
&printvariable("$variable\n");
sub printvariable()
{
print "My variable is: @_";
}
现在，它打印为，My variable is: 1
为什么这个十进制值在函数中四舍五入？有没有办法把函数中的值也打印出来？
浏览 2提问于2013-03-28得票数 0
回答已采纳
我试图在Perl中构建一个一行命令，将EST日期时间转换为GMT时间，并打印结果。我正在使用模块"DateTime“来完成这个任务。
我试过的命令是：
perl -MDateTime=set_Time_Zone -e "DateTime->new(year=>2019,month=>5,day=>10,hour=>18,minute=>40,time_zone=>EST)" -e "$dt->set_time_zone(GMT)"
它抛出的错误是
不能在set_time_zone第2行对未定义的值调用方法
浏览 1提问于2019-05-04得票数 0
如何在Unix中打印↑和↓？
我有一个用bash编写的脚本，我正在打印一些数字，我想用这些数字打印箭头键来显示增减。如何使用shell脚本中的echo或printf直接打印这些箭头键(假设我将它们赋值给某个变量并与数字一起打印)？
使用下面的链接，我尝试了：
echo -e '\x1b\x5b\x35\x7e'
但它不印任何东西。我找不到如何在此链接中打印箭头键。
浏览 0提问于2015-08-11得票数 3
回答已采纳
我想在主脚本中调用一个perl脚本并打印输出。我不知道该怎么做。请输入任何内容。
abcd.pl是我的主脚本，有几个单独编写的小脚本，我想在主脚本中调用它们并打印输出。
浏览 0提问于2014-11-06得票数 1
我正在调试一个由bash脚本启动的Perl程序。因为Perl脚本由大量的Perl模块组成，并且需要提供极其复杂的选项，所以这里的bash包装器是绝对必要的。
由于这个限制，在我的例子中，我不能使用Perl调试器，我想这是最简单的方法。然后我转向老的good printf。但是，即使我在不同的模块中将printf从一个位置添加到另一个位置，实际上也不会将任何内容打印到启动bash包装器的终端。
所以，我希望您首先解释为什么我不能从内部Perl脚本获得任何打印信息，以及如何解决我的问题，在这种情况下调试Perl程序。
浏览 0提问于2011-11-27得票数 0
回答已采纳
我想编写一个perl程序，它读取文件并提取其中的日期。然而，如果一个日期超过一次，我将只打印一次。例如：
On 01/10/2011 I went home. On 02/02/2012, I
went to my school. On 02/02/2012, I went
to London.
产出应是：
01/10/2011
02/02/2012
我可以通过将日期添加到数组中，并在每次读取新日期时控制它。但我要求一个更有效的方法。有什么合乎逻辑的方法吗？或perl中的任何数据结构。
浏览 0提问于2013-05-31得票数 3
回答已采纳
4回答
有没有办法在不重复打印“字符串”代码的情况下，同时打印到“显示器”和文件中？
我想做的是：
if ($ofile) {
open (FILE, '>>', "file");
print "Hello" #some code#; #prints on the display and into the file
}
而不是：
if ($ofile) { open (FILE, '>>', "file"); }
print "Hello";
if ($ofile) {
浏览 0提问于2011-12-24得票数 4
2回答
我有，并删除了msysperl5.6。
现在，perl将调用Strawberry (由于PATH env)，但是如何将perl命令映射到具有#!/bin/perl或#!/usr/bin/perl谢邦行的.pl或其他Perl脚本文件中？
我正在考虑在msys/bin中创建一个指向perl.exe的硬链接，或者将整个草莓合并到msys目录中，但我不确定。
浏览 5提问于2009-12-04得票数 8
2回答
我在做算术或尝试打印(调试)数字时失去了精度--这么大的数字: 1234567890.123456789
我想我的问题是$d (算术的结果)和$e格式的打印。我怎么能强迫长双打呢？我的Perl版本(SUN上的5.8.4版本)说这是可能的。sprintf有一个用于长双倍(q或L或ll)的大小选项，但我还不知道如何使用它，也不知道它是否适用于printf。
编辑：我添加了BigFloat，它可以工作！但我还是想强迫长双打。
尝试添加1234567890 + 0.123456789，减去1234567890 - 0.123456789.
use Config;
use Math::BigFloat;
浏览 4提问于2015-01-13得票数 4
回答已采纳
我想从perl one行中打印昨天的日期，当我在命令提示符下运行此命令时，我得到以下错误。
perl -e 'use POSIX qw(strftime);
$now_string = strftime "%Y%m%d", localtime(time()-86400);
print $now_string';
错误：
Can't find string terminator "'" anywhere before EOF at -e line 1.
我的perl版本v5.14.2
浏览 0提问于2013-04-01得票数 1
回答已采纳
我对Perl还是很陌生的，我很难理解为什么这一行程序不能工作。
我的理解是，它从输入读取到$_，然后打印应该能够打印出来，但是它不会等待键盘输入，也不会打印任何东西。
[admin@mb125:~/src/test/scripting] : echo "hello" | perl -e '<>; print'
我知道如果我在print之前做了<>，它就能工作，如下所示
[admin@mb125:~/src/test/scripting] : echo "hello" | perl -e 'print <>
浏览 5提问于2014-01-06得票数 2
回答已采纳
3回答
如果列中的模式匹配，则提取标题
、、、、
如果特定列中的模式匹配，我将尝试提取和打印文件的标题。
下面是一个例子：
[user ~]$ cal |sed 's/July 2014//'
Su Mo Tu We Th Fr Sa
1 2 3 4 5
6 7 8 9 10 11 12
13 14 15 16 17 18 19
20 21 22 23 24 25 26
27 28 29 30 31
预期产出：
如果输入日期=31，则打印第31天。
为了明确起见，我不能使用date -d标志，因为它不受我的OS.Probably支持，因此这里需要awk来解决这个问题。
浏览 1提问于2014-07-23得票数 0
回答已采纳
3回答
因此，我正在读取一个日历文件，以便在该文件中插入日期，并且我希望日期保持按时间顺序排列。当我找到日期应该放的位置时，问题就来了，文件已经超出了我想要插入的点。
我正在查看的日历文件如下所示：
# November 2010
11/26/2010
11/27/2010
11/28/2010
11/29/2010
11/30/2010
# December
12/24/2010
12/25/2010
12/26/2010
12/27/2010
12/28/2010
12/29/2010
12/30/2010
我的代码看起来像这样：
while (my $line = <FILE>) {
浏览 0提问于2011-08-02得票数 1
回答已采纳
我有一个awk命令，它将存储如下所示的结果，从我想要传递参数的结果中获取带有3个条件的记录。
awk‘/^E200-9/ {d=$1 FS $2 FS $3;f=1;n=NR} f && / /location/$1=$1;gsub(/<>/，“”)；打印n，d，$0;f=0}’OFS=‘AC.26’logfile >>错误日志
输入错误日志文件如下所示
1434887|E 2014-04-10 23:07:02.288|location=PIN_ERRLOC_PCP:2|class=PIN_ERRCLASS_SYSTEM_DET:1|errno=P
浏览 8提问于2014-04-30得票数 0
回答已采纳
我想以格式接受命令行上的用户日期。
dd/mm/yyyy
然后将日期打印给用户。
yyyy/mm/dd
我正在尝试使用日期：：解析模块将其解析为要重印的日期。
显示，我应该能够从用户输入中获取$day、$month和$year。
use Date::Parse;
$time = str2time($date);
($ss,$mm,$hh,$day,$month,$year,$zone) = strptime($date);
这是我目前的代码：
use strict;
use Date::Parse;
print "Enter a date in dd/mm/yyy format:
浏览 0提问于2019-01-02得票数 1
回答已采纳
1回答
<code>A0</code>
这就是我到目前为止所拥有的代码。我所做的是从用户那里获得两个日期的输入，然后使用这些日期来计算出它们之间有多少天。如果他们选择的两个日期之间有7天或14天，则成功。
到目前为止，它工作得很好，但唯一的问题是当执行这一行时：
<code>A1</code>
当它打印出变量时，它会打印出日期加上“00:00:00GMT”，这是我不想要的。
老实说，我不喜欢它打印日期的方式，比如"Tue Jan 01 00:00:00 GMT“，这也不是很好。我更喜欢它是如何输入的，例如2019年1月1日。
任何帮助都是非常感谢
浏览 9提问于2019-12-05得票数 0
回答已采纳
是一个很好的日志记录工具。
杂注也是一个必不可少的工具。
但是，当Perl脚本作为守护进程运行时，Perl警告会打印到STDERR中，没有人能看到它们，而不是打印到相关程序的Log4perl日志文件中。
有没有办法在Log4perl日志中捕获Perl警告？
例如，下面的代码可以很好地记录到日志文件中，但是如果它作为守护进程运行，Perl警告将不会包含在日志中：
#!/usr/bin/env perl
use strict;
use warnings;
use Log::Log4perl qw(get_logger);
# Define configuration
my $conf = q(
浏览 0提问于2010-01-18得票数 13
回答已采纳
3回答
我有一个Perl脚本，它将在linux上的cron作业中运行。它将接受昨天生成的日志文件作为输入。日志的文件名包含日期(即log.20100209)
我可以用提示符发送昨天的日期吗？我应该创建一个额外的脚本来获取日期并执行吗？如果是的话，我怎样才能做到呢？
谢谢
perl myscript.pl -f log.20100209
编辑
谢谢你的帮忙
它与以下方面开展了合作：
perl myscript.pl -f log.`date --date='yesterday' '+%Y%m%d'`
浏览 7提问于2010-02-10得票数 8
回答已采纳
3回答
ksh时代到日期时间格式
、、、、
我有一个脚本来查找任何用户密码的过期日期。脚本可以在秒(时代)内找到过期日期，但不能将其转换为日期时间格式。
#!/usr/bin/ksh
if (( ${#} < 1 )) ; then
print "No Arguments"
exit
fi
lastupdate=`pwdadm -q $1|awk '{print $3;}'`
((lastupdate=$lastupdate+0))
maxagestr=`lsuser -a maxage $1`
maxage=${maxagestr#*=}
let maxageseconds=$ma
浏览 0提问于2016-06-30得票数 0
回答已采纳
我只有一个HTML文件，如何在HTML代码中使用Perl脚本(日期/小时)？我的目标:在HTML Obs中显示日期/小时。
<html>
<body>
code or foo.pl script
</body>
</html>
Perl脚本(foo.pl)：
#!/usr/local/bin/perl
use CGI qw/:push -nph/;
$| = 1;
print multipart_init(-boundary=>'----here we go!');
for (0 .. 4) {
print mul
浏览 1提问于2010-10-22得票数 1
1回答
我正在编写的库中的一个函数返回一个字符串，当试图通过regex或index函数定位unicode字符时，该字符串是有问题的。字符串正常打印(使用崇高文本的控制台进行unicode打印)如下：
<xml>V日한ế</xml>
我试着把它匹配成这样：$string =~ m/V日한ế/。我在用utf8。
很抱歉，我无法复制一个最小的中断示例，因为当我自己构造字符串并试图匹配它时，一切都很正常。我尝试使用来自hexdump站点的函数，但是它为库返回的字符串和构造($string2 = 'V日한ế')：56 e6 97 a5 ed 95 9c e1 ba bf的
浏览 0提问于2013-08-21得票数 5
回答已采纳
3回答
我想在文件中每一行的开头添加一个特定的字符串。因此，如果我在someFile.txt中有以下两行代码，并希望使用管道添加日期字符串03/06/2012 -
Hello|there|john
Hello|there|joel
如果是我的话-
03/06/2012|Hello|there|john
03/06/2012|Hello|there|joel
实现这一目标的最有效方法是什么？
浏览 0提问于2012-03-07得票数 20
回答已采纳
我正在用Perl重写一个Bash脚本，以便学习后者。
该脚本使用自定义格式的当前日期和".txt“扩展名创建一个文件，但首先进行检查，以确保不存在具有有问题的日期的文件。
在Bash中，我使用ls |grep $customDate作为条件来实现这一点。也就是说，如果ls |grep $customDate为true，则会发出警告，并且不会创建任何文件；如果ls |grep $customDate为false，则会使用自定义日期加上".txt“扩展名来创建文件
我怎样才能在Perl中模仿它呢？
出于测试目的，我编写了以下代码，但它没有打印出任何内容-即使我已经创建了一个满足条件
浏览 0提问于2016-05-30得票数 2
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
实时音视频
即时通信 IM活动推荐
腾讯云开发者
