perl __DATA__ __END__

最新推荐文章于 2025-04-01 14:04:39 发布
原创 最新推荐文章于 2025-04-01 14:04:39 发布 · 1.3k 阅读 · 0 ·
本内容遵循CC 4.0 BY-SA版权协议
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文提供了一个使用Perl语言编写的简单脚本示例，该脚本演示了如何从脚本内部的数据段读取文本并逐行打印出来。通过这个例子，读者可以了解到Perl中利用特殊文件句柄__DATA__或__END__来处理内嵌数据的方法。
#! perl


use warnings;
use strict;


my @ss = <DATA>;#读取下面__END__或是__DATA__之下的文本


for(@ss)
{
print "LINE:$_\n";
}


close DATA;


#__END__ #注意这里只需要由__END__或是__DATA__一个就可以了。


__DATA__
------------------------------------------
it
# is    $\t\t$
a 
test
------------------------------------------
时间__DATE__字符串转化为YYMMDD格式
08-27
预处理中__DATE__中的"Aug 27 2013"格式的时间转换为yymmdd格式。
通过__DATA__获取系统日期
wzy0610的博客
04-08 1044
__DATA__是C预定义的宏，编译时系统改变__DATA__为当前日期， void GetChar_BuildDate(char *pf_BuildDate) { const char *StrD = __DATE__; if(1)//中文显示 { pf_BuildDate[0] = StrD[9]; pf_BuildDate[1] = StrD[10]; pf_BuildDate[2] = '.';
Perl(十五)BEGIN和END
wzj_110的博客
01-28 812
一Perl语言中BEGIN和END用法 Perl语言提供了'两个关键字'：BEGIN、END 特点： 它们可以'分别'包含'一组脚本',用于程序体'运行前'或者'运行后'的执行 重点： Perl语言中'BEGIN／END'模块和'所在位置'无关 场景： 需要在'perl业务代码开始执行之前'做一些'初始化'工作,或者在结束的时候做一些'收尾'的工作 理解： 组成三要素-->'BEGIN'、'程序主体'、'END' -->辅助'__END__'标记'截断' 说明：'__EN..
Perl语言中的BEGIN和END用法详解及架构
GbkMobile的博客
09-27 453
在Perl编程语言中，BEGIN和END是特殊的代码块，用于在程序执行的不同阶段执行特定的操作。BEGIN代码块在程序执行之前执行，而END代码块在程序执行结束后执行。通过合理地使用BEGIN和END代码块，我们可以在Perl程序的不同阶段执行特定的操作。在上面的示例中，BEGIN代码块用于程序初始化，它打印一条初始化消息并设置环境变量。在上面的示例中，END代码块被用于程序结束时执行一些清理任务。它打印一条程序完成的消息，并可以执行一些清理操作，如关闭打开的文件句柄、释放动态分配的内存等。
宏__DATA__日期以YYYYMMDD格式显示
JXES智能生态系统
06-08 5131
以下代码是从网络上看到，经修改后目前可以正常使用。 #include <stdio.h> #define YEAR ((((__DATE__ [7] - '0') * 10 + (__DATE__ [8] - '0')) * 10 \ + (__DATE__ [9] - '0')) * 10 + (__DATE__ [10] - '0')) #define MON...
perl 文件句柄DATA
weixin_30345577的博客
03-14 239
1 #!/usr/bin/perl 2 3 while (<DATA>) { 4 print; 5 } 6 7 __DATA__ 8 hello perl 输出结果: hello perl 这个用法太方便太perl了，以后再也不需要使用新建文件的笨方法了。 下面是解释： <IN>可以从打开的句柄IN中获得...
掌握Perl文件句柄：输入输出操作详解
最新发布
weixin_36122351的博客
04-01 910
本篇博文深入探讨了Perl语言中文件句柄的使用，包括如何定义和操作__DATA__和__END__令牌，以及如何通过管道、套接字和套接字对进行进程间通信。文章还详细介绍了Perl中的文件句柄引用、读写操作，并解释了特殊变量$./$RS/$INPUT_RECORD_SEPARATOR以及如何在不同上下文中利用文件句柄。
2种简单的perl socket
weixin_34205826的博客
06-01 109
方法一： **************************************************************client端 #!/usr/bin/perl use strict; use IO::Socket; use Data::Dumper; my $lsocket=IO::Socket::INET->new( Pee...
Perl中Data::Dumper模块用法
CamelGem
06-16 4490
Data::Dumper的用法 use Data::Dumper; my ($foo, $bar) = ([1, 2, 3], [3, 4, 5]); print Dumper($foo, $bar); # 正常输出引用数据结构 print Data::Dumper->Dump([ $foo, $bar ], [ qw(foo *ary) ]); # configuration variables { local $Data::Dumper::Purity = 1; eval D
教你用Perl 实现Base64编码
weixin_30439067的博客
10-19 364
在用脚本后台发送邮件时，需要将html的内容转换成Base64编码的形式，这样邮件客户端会自动对Base64编码的内容进行解码，还原成原来的内容。 Base64.pl： #!/usr/bin/perl use strict; use warnings; use MIME::Base64; my $line; my $code; if (@ARGV &lt...
perl: 基础知识
04-12 656
PERL： Practical Extractionand Report Language，实用报表提取语言。 借取了C、sed、awk、shell以及很多其他程序语言的特性,是linux和unix的梦幻脚本语言。主要用于文本处理,适用于小型应用程序和脚本。 perl是用多种方法解决问题。   perl是用c语言写的。   CPAN:ComprehensivePerl Archive
use Perl analysis BLAST data
yummy2009的专栏
02-07 790
use Perl analysis BLAST data #!/usr/bin/perl use 5.010; use strict; say "Demo : use perl process BLAST's data : search a large sequence ,and find the sepcial sequence ."; my $REPORT_FILE = "rep
Windows下使用Perl连接DB2[转]
rockiecxh的专栏
05-07 1341
原文地址: http://server.it168.com/server/2006-02-06/20060206011101.shtml 　　Perl语言本身就不多做介绍了。 　　1994年发布的DBI是Perl语言连接关系性数据库的标准。可以从dbi.perl.org获得DBI的源代码和文档。 　　IBM在1995年发布了对于Perl的DB2驱动，这个驱动是符合DBI标准的，在Perl里这个
Perl POD 文档
Kandy1iu的博客
12-15 815
Pod(Plain Old Documentation), 是一种简单而易用的标记型语言（置标语言），它经常用于在perl程序和模块中的文档书写。Pod 的 转化器可以将 Pod 转换成很多种格式，例如 text, html, man 等很多。Pod 标记语言包含三种基本基本类型： 普通, 原文, 和 命令。普通段落: 你可以在普通段落中使用格式化代码，如黑体，斜体，或代码风格，下划线等。原文段落: 原文段落，用于代码块或者其他不需要转换器处理的部分，而且不需要段落重排。命令段落。
Perl文件句柄相关常量变量
weixin_30675247的博客
08-31 257
文件句柄相关变量 对应的官方手册：http://perldoc.perl.org/perlvar.html#Variables-related-to-filehandles 默认情况下： $/：输入行的分隔符以换行符为单位，可以使用$/指定 $\：print输出行的分隔符为undef，可以使用$\指定，例如指定换行符"\n" $,：print输出列表(也就是每个逗号分隔的部分)的字段分隔符为un...
从awk到perl,ruby
woshiyilitongdouzi的博客
10-09 333
从awk到perl,ruby 昨天看电脑时间长了，今天眼睛疼，于是就只能回忆代码了。所以不停的回忆数据结构的内容。 昨天读rubygem algorithms0.0.1中tree_map后，其实好象是红黑树，于是我就把数据结构的内容好好回忆。红黑树没学过。 先要学习下，再试着读其中的C代码了。 忽然想到，数据结构中，讲到线性表时，如果用数组实现顺序表，其中结构定义如下： STRUCT ARR｛ I...
#step by step# Linux command line and explanation for NGS data
qq_40569830的博客
12-04 558
参考http://userweb.eng.gla.ac.uk/umer.ijaz/bioinformatics/linux.html http://blog.csdn.net/lixiangyong123/article/details/52062323 http://blog.csdn.net/lixiangyong123/article/details/51816747 http
c++ 函数过长 拆分_perl 第九弹 函数II
weixin_39947812的博客
01-12 116
记得点击蓝字关注我们哦！01上期回顾chomp函数、exists函数、delete函数、grep函数含义用法，pop、push、shift、unshift函数归纳02函数join函数能够把数组元素连接到单个字符串中，并借助指定的定界符划分各个数组元素。用法：join(DELIMITER, LIST)$name="Joe Blow";$birth="11/12/86";$address="...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值