1. 首页
  2. 代码片断库
  3. 全部数据
全部数据
text
javascript
php
markdown
sh
java
python
html
csharp
css
sql
c_cpp
PHP
ruby
xml
scss
json
swift
JavaScript
typescript
vbscript
powershell
CSS
apache_conf
ActionScript 3
r
ini
HTML
golang

JavaScript 在Javascript中将字符串转换为数字

var myval = Number(document.myform.mytext.value);

//var myval = document.myform.myval.value; myval++; myval--;

Perl 疯狂的Perl代码

$_ = shift;
s/\\/\//g;
print;

################

while(<>) {
   /^(\w+)/;
   print $_.',';
}

#############

if(($_ = 5)==5) {print;}

##############

$x = 7;
if (($x <=> 0)==($x=$x)) {print 'true';}
else{print 'false';}

#######################

print "Hello World" or die "trying";

######################

print eval qw(qw(qw()));

Prolog 疯狂的Prolog代码

output(X,Y) :- my_output(X,Y)!.

my_output(X,Y) :- my_output_(X,Y);
my_output_(X,Y) :- my_output__(X,Y);
my_output__(X,Y) :- my_output___(X,Y);
my_output___(X,Y) :- write([X | [is | [Y | []]]]), my_________().
my_________() :- my________().
my________() :- my_______().
my_______() :- my______().
my______() :- my_____().
my_____() :- my____().
my____() :- my___().
my___() :- my__().
my__() :- my_().
my_() :- my().
my() :- !.

Perl 计算给定目录中的目录条目

#!/usr/bin/perl
$ARGV[0] = '.' unless @ARGV;
for my $dir (@ARGV) {
  opendir DIR, $dir or die "$dir: $!\n";
  $file =~ m:^\.: or ++$count
    while ($file = readdir DIR);
  closedir DIR;
}
print "$count\n";
exit 0;

PHP 欧元钞票验证

<?php

/**
 * Checks if the input string is a valid Euro note serial number.
 *
 * @param string $string
 * @return bool
 */
function Euro($string)
{
	settype($string, 'string');

	if (strlen($string) != 12)
	{
		return false;
	}

	$string = str_replace(array('A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z'), array(2, 3, 4, 5, 6, 7, 8, 9, 1, 2, 3, 4, 5, 6, 7, 8, 9, 1, 2, 3, 4, 5, 6, 7, 8, 9), strtoupper($string));

	$stack = 0;

	for ($i = 0; $i < 12; $i++)
	{
		$stack += $string[$i];
	}

	if ($stack % 9 == 0)
	{
		return true;
	}

	return false;
}

?>

PHP 打印出共享服务器的真实路径

<?php
  print($_SERVER['DOCUMENT_ROOT']);
?>

C# 对页首的通用控制

HtmlGenericControl si = new HtmlGenericControl();
si.TagName = "script";
si.Attributes.Add("type", "text/javascript");
si.Attributes.Add("language", "JavaScript");
si.Attributes.Add("src", ResolveClientUrl("~/scripts/global.js"));

JavaScript 在文本中删除阴影

<script>
<!–

var message=”Shadow”;
var range=2;
var extra=”font-size:40px;”;
var color1=”gray”;
var color2=”black”;
var x = range;
var y = range;

document.write (”<span style=’”+extra+” color:”+color2+”; position:absolute\; left:”+x+”; top:”+y+”;’>”+message+”</span>”);
document.write (”<span style=’”+extra+” color:”+color1+”; position:absolute; left:0; top:0;’>”+message+”</span>”);

//–>
</script>

JavaScript in_array（）

function in_array( what, where ){
	var a=false;
	for(var i=0;i<where.length;i++){
	  if(what == where[i]){
	    a=true;
        break;
	  }
	}
	return a;
}

PHP Acortar cadena por palabras

<?php

function cortarTexto($str,$num)
{
  // Comprueba que la cadena es más larga que el número introducido. 
  // Si es más corta, se deja tal cual.
  if (strlen($str) < $num) {
    return $str;
  } else {
    $str = substr($str,0,$num);
    return substr($str,0, -(strlen($str)-strrpos($str,' ')) ).'...';
  }  
}

?>