Perl在线运行

版本:

所属目录
点击了解高性能代码运行API
运行结果
教程手册
代码仓库
极速运行
终端运行
图形+终端

                        
以下是用户最新保存的代码
这段Perl代码是一个简单的交换相邻字符的程序,通过交换字符串中每两个相邻字符的位置来创建一个新的字符串。每次交换都涉及到字符数组中的两个元素。 这个程序从标准输入中读取输入,然后对输入的每一行进行处理。它使用 split //, $input 将输入字符串分割成单个字符,并将字符存储在数组 @chars 中。 然后,通过一个循环遍历数组,交换相邻的字符位置。 例如,如果输入是 "abcdef",该程序将交换相邻字符,生成 "badcfe"。 发布于:2023-10-25 15:36 这段Perl代码是一个简单的交换相邻字符的程序,通过交换字符串中每两个相邻字符的位置来创建一个新的字符串。每次交换都涉及到字符数组中的两个元素。 这个程序从标准输入中读取输入,然后对输入的每一行进行处理。它使用 split //, $input 将输入字符串分割成单个字符,并将字符存储在数组 @chars 中。 然后,通过一个循环遍历数组,交换相邻的字符位置。 例如,如果输入是 "abcdef",该程序将交换相邻字符,生成 "badcfe"。 发布于:2023-10-25 15:35 这段Perl代码是一个简单的交换相邻字符的程序,通过交换字符串中每两个相邻字符的位置来创建一个新的字符串。每次交换都涉及到字符数组中的两个元素。 这个程序从标准输入中读取输入,然后对输入的每一行进行处理。它使用 split //, $input 将输入字符串分割成单个字符,并将字符存储在数组 @chars 中。 然后,通过一个循环遍历数组,交换相邻的字符位置。 例如,如果输入是 "abcdef",该程序将交换相邻字符,生成 "badcfe"。 发布于:2023-10-12 11:06 新发的新代码 发布于:2023-09-26 11:22 test_args 发布于:2023-09-18 17:31 这是一个测试编码 发布于:2023-09-11 17:45 打招呼的方式 发布于:2023-08-10 15:21 这是一个例子 发布于:2022-11-25 16:28 这里是一个例子 发布于:2022-11-25 15:20 这是一个程序 发布于:2022-11-23 17:51 这是一个例子 发布于:2022-11-23 14:58 这是一个例子 发布于:2022-11-22 17:51 vfvbegvbte b 发布于:2022-10-11 12:05 00-第一个Perl 发布于:2022-10-09 09:32 calculate the circ 发布于:2022-05-05 09:32 EOF测试 发布于:2021-07-01 22:30 查重名字拼接 发布于:2020-10-26 17:37 [更多]
显示目录

数据类型



学习嵌入式的绝佳套件,esp8266开源小电视成品,比自己去买开发板+屏幕还要便宜,省去了焊接不当搞坏的风险。 蜂鸣版+触控升级仅36元,更强的硬件、价格全网最低。

点击购买 固件广场

Perl 数据类型

Perl 是一种弱类型语言,所以变量不需要指定类型,Perl 解释器会根据上下文自动选择匹配类型。

Perl 有三个基本的数据类型:标量、数组、哈希。以下是这三种数据类型的说明:

序号 类型 描述
1 标量 标量是Perl语言中最简单的一种数据类型。它的变量可以是数字,字符串,浮点数。它以"$"开头
2 数组 数组变量以字符"@"开头
3 哈希 哈希是一个无序的key/value对集合。可以使用键作为下标获取值。哈希变量以字符"%"开头

数字字面量

一、整型

PERL实际上把整数存在你的计算机中的浮点寄存器中,所以实际上被当作浮点数看待。

在多数计算机中,浮点寄存器可以存贮约16位数字,长于此的被丢弃。整数实为浮点数的特例。

整型变量及运算:

$x = 12345;
if (1217 + 116 == 1333) {
    # 执行代码语句块
}

8进制和16进制数:8进制以0开始,16进制以0x开始。例如:

$var1 = 047;    # 等于十进制的39
$var2 = 0x1f;   # 等于十进制的31

二、浮点数

浮点数数据如:11.4 、 -0.3 、.3 、 3. 、 54.1e+02 、 5.41e03。

浮点寄存器通常不能精确地存贮浮点数,从而产生误差,在运算和比较中要特别注意。指数的范围通常为-309到+308。 例如:

#!/usr/bin/perl 

$value = 9.01e+21 + 0.01 - 9.01e+21;
print ("第一个值为:", $value, "\n");
$value = 9.01e+21 - 9.01e+21 + 0.01;
print ("第二个值为:", $value, "\n");

执行以上程序,输出结果为:

第一个值为:0
第二个值为:0.01

三、字符串

Perl中的字符串使用一个标量来表示,定义方式和c很像,但是在Perl里面字符串不是用0来表示结束的。

Perl双引号和单引号的区别: 双引号可以正常解析一些转义字符与变量,而单引号无法解析会原样输出。

但是用单引号定义可以使用多行文本,如下所示:

#!/usr/bin/perl 

$var='这是一个使用

多行字符串文本

的例子';

print($var);

执行以上程序,输出结果为:

这是一个使用

多行字符串文本

的例子

Perl 语言中常用的一些转义字符如下表所示:

转义字符 含义
\ 反斜线
\' 单引号
\" 双引号
\a 系统响铃
\b 退格
\f 换页符
\n 换行
\r 回车
\t 水平制表符
\v 垂直制表符
\0nn 创建八进制格式的数字
\xnn 创建十六进制格式的数字
\cX 控制字符,x可以是任何字符
\u 强制下一个字符为大写
\l 强制下一个字符为小写
\U 强制将所有字符转换为大写
\L 强制将所有的字符转换为小写
\Q 将到\E为止的非单词(non-word)字符加上反斜线
\E 结束\L、\U、\Q

实例

接下来让我们来具体看看单引号和双引号及转义字符的使用:

#!/usr/bin/perl

# 换行 \n 位于双引号内,有效
$str = "Jsrun教程  \nwww.jsrun.cn";
print "$str\n";

# 换行 \n 位于单引号内,无效
$str = 'Jsrun教程  \nwww.jsrun.cn';
print "$str\n";

# 只有 w 会转换为大写
$str = "\ujsrun";
print "$str\n";

# 所有的字母都会转换为大写
$str = "\Ujsrun";
print "$str\n";

# 指定部分会转换为大写
$str = "Welcome to \Ujsrun\E.cn!"; 
print "$str\n";

# 将到\E为止的非单词(non-word)字符加上反斜线
$str = "\QWelcome to jsrun's family";
print "$str\n";

以上实例执行输出结果为:

Jsrun教程
www.jsrun.cn
Jsrun教程\www.jsrun.cn
Jsrun
JSRUN
Jsrun to Jsrun.cn!
Jsrun\ to \Jsrun\'s\family
由JSRUN为你提供的Perl在线运行、在线编译工具
        JSRUN提供的Perl 在线运行,Perl 在线运行工具,基于linux操作系统环境提供线上编译和线上运行,具有运行快速,运行结果与常用开发、生产环境保持一致的特点。
yout