perl
alim2012
这个作者很懒,什么都没留下…
展开
专栏收录文章
- 默认排序
- 最新发布
- 最早发布
- 最多阅读
- 最少阅读
-
perl实现nacos服务注册
#!/bin/perluse strict;use LWP;use warnings;use Socket;use JSON;my $auto_ip = 1;my $service_ip = "127.0.0.1";my $service_port = "8848";my $ip = "127.0.0.1";my $port = "9999";my $service_name = "name";my $group_name = "DEFAULT_GROUP";my $user .原创 2022-05-06 15:48:49 · 306 阅读 · 0 评论 -
使用 apk 安装 perl组件 DB_File 出现 version.c:26:10: fatal error: EXTERN.h 问题导致make失败
在apline使用apk安装perl组件 DB_File出现如下问题,导致无法make成功version.c:26:10: fatal error: EXTERN.h: No such file or directory解决方法:apk add perl-dev如果继续出现如下问题:version.c:30:10: fatal error: db.h: No such file or directory解决方法:apk add db-dev解决以上问题就能make..原创 2021-07-12 13:32:08 · 775 阅读 · 0 评论 -
使用 apk 安装 perl组件 XML::Parser 出现 Install ‘expat-devel‘ (or‘libexpat1-dev‘) package 问题导致make失败
在apline使用apk安装perl组件 XML::Parser出现如下问题,导致无法make成功Expat must be installed prior to building XML::Parser and I can't findit in the standard library directories. Install 'expat-devel' (or'libexpat1-dev') package with your OS package manager. See 'README'.原创 2021-07-12 12:42:24 · 1159 阅读 · 0 评论 -
perl获取本机ip地址(通过UDP的方式)
#!/usr/bin/perluse strict;use warnings;use Socket;require 'sys/ioctl.ph';sub get_ip_address($$) { my($addr, $port) = @_; my $dest = sockaddr_in($port, inet_aton($addr)); socket(SOCK,PF_INET,SOCK_STREAM,6); connect(SOCK,$dest); my.原创 2021-07-05 00:33:13 · 390 阅读 · 0 评论
分享