子程序中的私有变量

最新推荐文章于 2019-07-26 21:57:11 发布
最新推荐文章于 2019-07-26 21:57:11 发布
阅读量413 收藏
点赞数
分类专栏： perl 文章标签： perl
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/nanaranran/article/details/52797192
版权
[root@mysql1 perl]# cat 18.pl   
#!/usr/bin/env perl


#use warnings FATAL => 'all';


sub max {
#  my($m,$n);
#  ($m,$n)=@_;
my($m,$n)=@_;
  if ($m > $n) {
    $m
  } else {
    $n
  }
}


print &max(10,15),"\n";
print &max(8,5),"\n";
print &max(1,2,3),"\n";
print &max(4),"\n";


[root@mysql1 perl]# 
[root@mysql1 perl]# 
[root@mysql1 perl]# 
[root@mysql1 perl]# ./18.pl   
15
8
2
4
娜然
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
通过浏览器拉起应用程序（私有协议）-易语言
06-14
_启动子程序 整数型 请在本子程序中放置动态链接库初始化代码 变量名 类 型 静态 数组 备 注 aa 文本型 0 取命令行 ( aa) 信息框 ( aa[ 1] , 0, ,) 返回 ( 0) ' 返回值被忽略。 将程序编译为test.exe，放置到桌面上...
perl中子程序的运用，以及在子程序中变量进行私有（my)声明的重要性
GRC
09-26 1387
我们都知道用my可以来定义私有变量，这个可以在很多情况下防止错误的发生，下面我们通过一个例子来看一看。 下面是一个转换程序，也就是简单的把DNA序列中的A转变成T，第一种情况没有使用私有变量。如下： #下面是一段DNA序列 $DNA=ATTATATAT;#这里是我们的序列 $result=A_to_T($DNA); print "I changed all $DNA A to T, and
openmp 并行fortran 中的子程序/函数
u013078547的博客
07-26 2229
program main use a use b implicit none ！ do i=1,100 call sub enddo end program subroutine sub() use a use b end --------------------------------------------------- 目标：并行名为sub的子程序,在主程序...
PERL语言入门:第四章:子程序(函数):参数与子程序的私有变量
MyBack
06-09 1391
默认情况下， perl中的所有变量都是全局的。 如果要创建私有变量， 可以用my关键字， 它能另一个变量局限于子程序或一个语句块中。({ } 为一个语句块) 在perl中， 函数的参数会被自动保存到数组变量: @_中, 第一个变量为$_[0]， 第二个为: $_[1]， 依次类推。 root@firecat:~# cat test.pl #!/usr/bin/perl -w
usUselesse of addition (+) in void context at ./16.pl line 7.
娜然的专栏
10-11 731
如果在perl中你定义了一个子程序，并且启用了警告，子程序中的运算结果没有被存储起来，这时候perl会将其丢弃，并且报错：Useless use of addition (+) in void context at来警告你，其中的void context（空的上下文），表示运算结果没有存储到变量里，也未被任何函数使用。 例子： [root@mysql1 perl]# cat 16.pl  #
易语言从外部访问类的私有成员
07-21
易语言从外部访问类的私有成员源码,从外部访问类的私有成员,私有成员外部初始化,测试_输出私有成员的值,子程序_说明,取变量数据地址_ASM,变量_ASM变量地址还原数据指针,变量_ASM变量地址指向新数据地址
易语言程序免安装版下载
04-07
修改BUG：在IDE中打开源代码文件(.e)后，高级选择夹组件不能正确切换到“现行子夹”属性设定的子夹。 9. 修改BUG：矢量动画支持库中的“矢量编辑框”组件在光标位于组件右下角时按右光标键进入下一行会导致显示...
VBSCRIPT中文手册
11-12
Private 语句 声明私有变量并分配存储空间。 PropertyGet 语句 声明在窗体属性过程中获取（返回）属性值的名称，参数和代码。 PropertyLet 语句 声明在窗体属性过程中指定属性值的名称，参数和代码。 PropertySet...
EXTJS 中文手册 电子书
08-17
Javascript中的作用域（scope） ............................................................................... 15 事前准备..................................................................................
理解js中私有变量
weixin_30690833的博客
01-23 110
私有变量在js中是个什么概念。当下我的认识是var所定义的变量，实际可以理解为属性和方法，或者单单是临时存储器，不归属任何对象。 一个声明函数： function a(){ var v = "bc";} 这样定义的变量v有以下特征： 只有当a函数被执行的时候，即添加尾括号调用，内部才会开始v的声明（预处理）及赋值的操作（执行）。 用后即毁，再不占用内存。 闭包的情况会常驻...
javascript私有变量的警告
且听真言
12-28 206
Javascript从未阻止我们将一个对象中创建的属性复制给另一个对象。观察如下代码： console.log("------------通过函数访问私有变量，而不是通过对象访问-------------"); function NinjaTest() { var feints = 0; this.getFeints = function () { return feints;...
静态私有变量
weixin_30784945的博客
08-02 68
通过在私有作用域中定义私有变量和函数，同样也可以创建特权方法，其基本模式如下所示。 (function(){ //私有变量和私有函数 var privateVariable=10; function privateFunction(){ return false; } // 构造函数 MyObject = function (){ }; ...
OpenMP变量的私有与共享
RToax
11-30 4094
#include #include #ifdef _OPENMP #include #endif int gval = 8;//gval是共享的 void funcb(int *x, int *y, int z)//z是线程私有，z-i { static int sv;//静态变量，共享的，在内存中只有一份，所以会引起冲突 int u;//自变量，线程私有的 u = (*y)*gv
PERL中的私有变量
dasgk的专栏
10-17 1579
默认情况下，PERL中所有的变量都是全局变量，也就是说在程序中的任何地方都可以访问他们，但是你也可以随时用一个操作符来创建私有的词法变量，即my sub max {      my($m,$n)=@_;      if($m>$n)     print $m;     else     print $n; } 使用my操作符限定过的变量，其作用域只在其所在的代码块中有效，不被
perl中的die语法
热门推荐
娜然的专栏
11-08 1万+
if ( ! open LOG, '>>', 'logfile' ) {   die "cannot create logfile: $!"; } 如果open失败，die会终止程序的运行，并且告诉我们无法创建日志文件 $!：会给我们一个解释，如：fine not found之类的，也就是在c或其他语言里面调用perror取得的字符串。     这个解释性的系统错误信息保
printf输出数组的内容
娜然的专栏
10-17 8777
[root@mysql1 perl]# cat 28.pl  #!/usr/bin/env perl use strict; use warnings FATAL => 'all'; my @items=qw( wilma dino pebbles ); my $format="the items are:\n".("%10s\n" x @items); pri
perl读取文件内容
娜然的专栏
10-17 2124
[root@mysql1 perl]# cat test.pl  #!/usr/bin/env perl while (defined($line=   chomp($line);   print "it was $line that i saw!\n"; } [root@mysql1 perl]# ./test.pl a
fortran中的module怎么用
最新发布
06-07
Fortran中的module（模块）是一种用于组织程序代码的结构化方式。通过将相关的函数、子程序、变量等放在同一个module中，可以方便地在程序的其他位置调用和使用它们。使用module可以提高代码的可维护性和可读性。 下面是一个简单的module示例： ``` module my_module implicit none integer :: my_variable = 0 contains subroutine my_subroutine() print *, "Hello from my_subroutine!" end subroutine my_subroutine end module my_module ``` 在这个例子中，我们定义了一个名为my_module的module，它包含了一个整型变量my_variable和一个子程序my_subroutine。在程序的其他位置，可以通过使用use语句来调用这个module中的变量和子程序。例如： ``` program main_program use my_module implicit none my_variable = 10 call my_subroutine() print *, "my_variable = ", my_variable end program main_program ``` 在这个例子中，我们使用use语句来调用my_module中的变量和子程序。在程序中，我们将my_variable的值设置为10，并调用my_subroutine子程序输出一条消息。最后，我们输出my_variable的值，以确认它已经被正确设置。 需要注意的是，module中的变量和子程序默认是私有的，即只能在module内部访问。如果要在module外部访问它们，需要在module中使用public语句进行声明。例如： ``` module my_module implicit none integer, public :: my_variable = 0 contains subroutine my_subroutine() print *, "Hello from my_subroutine!" end subroutine my_subroutine end module my_module ``` 在这个例子中，我们使用public语句将my_variable声明为公共的，即可以在module外部访问它。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值