ophub 改进我家云风扇脚本增加风扇关闭，启动功能

2562733675

关联：

我家云ChainedboxProL1最新固件ophub使用方案详解

20240604 增加风扇降噪系数（系数可以是小数），倍数降低风扇温度最高限（最高限默认75度）以下，最低限以上的风扇转速，强调不超温就尽量不让风扇吵闹的原则；
               修改风扇停转温度，根据硬盘最佳寿命40度为修改参考；
20240428 增加风扇关闭功能，在冬天气温比较低时，如果风扇还旋转，因为热胀冷缩轴承非常容易磨损，天气冷的时候是风扇损坏率较高的时候。


脚本是我用曾经大二c语言基础 和 GPT3.5 和力啃下来的。

个人见解：ophub我家云用的f大的调速脚本，脚本我没看的太懂，我的理解是根据温度的匀速调速脚本，但是我家云的情况不太一样，我家云主板上的散热器是一块厚铝合金，实际目的是为了增加cpu的热容，使温度不易跳变，由于平时cpu使用频率也很低，温度更多是来自环境温度和硬盘温度，所以我之前的使用爱好是cpu温度低风扇不开启可保证寿命，温度高于65低于75度，风扇低速、低噪音运行，缓慢抽走我家云内热风就行，没有必要强制降低cpu温度，当cpu突破75度，风扇全速运行，强制散热。由于cpu重负载情况不多，所以风扇很少全速开启。这套逻辑使用下来非常满意；


替换/user/bin/pwm-fan.pl

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. 
   
5. ################################################################################
   
6. #20240604 增加风扇降噪系数（系数可以是小数），倍数降低风扇温度最高限（最高限默认75度）以下，最低限以上的风扇转速，强调不超温就尽量不让风扇吵闹的原则；
   
7. #              修改风扇停转温度，根据硬盘最佳寿命40度为修改参考；
   
8. #20240428 增加风扇关闭功能，在冬天气温比较低时，如果风扇还旋转，因为热胀冷缩轴承非常容易磨损，天气冷的时候是风扇损坏率较高的时候。
   
9. # 参数我已经修改完善，没有特殊情况勿改 -根据F大脚本修改 by Ran
   
10. # cat /sys/devices/virtual/thermal/thermal_zone0/temp #用此行命令可在ssh命令矿中查看cpu实时温度
    
11. # 参数调整区 风扇按照固定占空比启动后10s,根据cpu温度调整转速,低于$temp_low风扇停转,高于$temp_fanOn风扇启动。
    
12. # 速度最小值(满速是99),如果太小可能进入死区,风扇不转,需配合下面提示调整
    
13. my $speed_min = 8;
    
14. 
    
15. # 速度最大值(满速是99)
    
16. my $speed_max = 99;
    
17. 
    
18. # 温度低限(摄氏度): 小于等于此温度风扇停转
    
19. my $temp_low = 40;
    
20. 
    
21. # 风扇启动温度低限(摄氏度): 大于于等于此值按启动风扇散热
    
22. my $temp_fanOn = 65;
    
23. 
    
24. # 风扇启动占空比参数(%): 风扇启动时使用固定占空比：风扇启动占空比参数,设置要点:保证能启动同时风扇噪音不要过大
    
25. my $duty_cycle_on = 3;
    
26. 
    
27. # 降噪系数: 降低风扇启动到cpu温度最高限区间的风扇噪音,降低幅度计算1/$fan_n,最终风扇转速=计算转速*(1/$fan_n)+$speed_min；
    
28. my $fan_n = 2;
    
29. 
    
30. # 温度最高限(摄氏度): 大于此值按最高速率转动
    
31. my $temp_high = 75;
    
32. 
    
33. # 调速间隔(秒)
    
34. my $interval = 10;
    
35. ################################################################################
    
36. #用到的变量,下面参数勿动
    
37. # 风扇状态位:0为关闭,1为开启
    
38. my $fanclose_temp = 0;
    
39. 
    
40. # 风扇首次启动:0为风扇运转中,1风扇从关闭到开启是第一次运行
    
41. my $fan_up = 0;
    
42. 
    
43. # 风扇切换温度转换值
    
44. my $coeff_temp = 0;
    
45. 
    
46. ################################################################################
    
47. 
    
48. my $fixed_speed = $ARGV[0];
    
49. my $period = 25000;
    
50. &init;
    
51. if( ($fixed_speed ne "") &&
    
52.     ($fixed_speed =~ m/^[0-9]{1,3}$/) ) {
    
53.     # 如果命令行参数为 0-100 的整数,则按指定的固定速率调速
    
54.     &set_fixed_speed($fixed_speed);
    
55. } else {
    
56.     # 否则自动调速
    
57.     while(1) {
    
58.         &auto_speed;
    
59.         sleep($interval);   
    
60.     }
    
61. }
    
62. exit 0;
    
63. 
    
64. ###############################################################################
    
65. sub get_soc_temp {
    
66.     my @fnames=(
    
67.           '/sys/devices/virtual/thermal/thermal_zone0/temp',
    
68.           '/sys/devices/platform/scpi/scpi:sensors/hwmon/hwmon0/temp1_input',
    
69.        );
    
70.     my $fh;
    
71.     my $temp = 50;
    
72.     for my $fname (@fnames) {
    
73.         if( -f $fname ) {
    
74.             open $fh, "<", $fname;
    
75.             $temp = <$fh> / 1000.0;
    
76.             close $fh;
    
77.             return $temp;
    
78.         }
    
79.     }
    
80.     return $temp;
    
81. }
    
82. 
    
83. sub init {
    
84. 
    
85.     $speed_max = 100  if ($speed_max > 100);
    
86.     $speed_min = 0  if($speed_min < 0);
    
87. 
    
88.     my $fh;
    
89.     `rmmod pwm_fan 2>/dev/null`;
    
90. 
    
91.     open $fh, ">", "/sys/class/pwm/pwmchip0/export";
    
92.     print $fh "0\n";
    
93.     close $fh;
    
94. 
    
95.     open $fh, ">", "/sys/class/pwm/pwmchip0/pwm0/period";
    
96.     print $fh "$period\n";
    
97.     close $fh;
    
98. 
    
99.     open $fh, ">", "/sys/class/pwm/pwmchip0/pwm0/polarity";
    
100.     print $fh "normal\n";
     
101.     close $fh;
     
102. 
     
103.     open $fh, ">", "/sys/class/pwm/pwmchip0/pwm0/enable";
     
104.     print $fh "1\n";
     
105.     close $fh;
     
106. }
     
107. 
     
108. sub set_fixed_speed {
     
109.     my $fixed_speed = shift;
     
110. 
     
111.     # 最大值0.99
     
112.     my $coeff_speed = ($fixed_speed / 100.0) > 1 ?  0.99 :($fixed_speed / 100.0);
     
113. 
     
114.     #0.1-0.19 定义为死区
     
115.     $coeff_speed = 0.20 if $coeff_speed > 0 and $coeff_speed < 0.2;
     
116. 
     
117.     my $duty_cycle = int($coeff_speed * $period);
     
118. 
     
119.     open my $fh, ">", "/sys/class/pwm/pwmchip0/pwm0/duty_cycle";
     
120.     print $fh "$duty_cycle\n";
     
121.     close $fh;
     
122. }
     
123. 
     
124. sub auto_speed {
     
125.     my $temp = &get_soc_temp;
     
126.     #my $coeff_temp;
     
127.     if($temp <= $temp_low) {
     
128.         $coeff_temp = 0;
     
129.         $fanclose_temp = 0;
     
130.         #$fanclose_temp = 1; #去掉此行代码前的#测试风扇是否可以维持旋转,测试完毕此行代码前加#
     
131.         } elsif($temp > $temp_high) {
     
132.                 $coeff_temp = 1;
     
133.                       $fanclose_temp = 1;
     
134.                 } elsif(($temp > $temp_fanOn)&&($fanclose_temp == 0)){
     
135.                                $fan_up = 1; #风扇启转,设置首启转志位
     
136.                                $fanclose_temp = 1;
     
137.                                }else {
     
138.                             $coeff_temp = ($temp - $temp_low) / (($temp_high - $temp_low)*$fan_n);
     
139.                             }
     
140. 
     
141.     my $coeff_speed_min = $speed_min / $speed_max  * ($speed_max / 100);
     
142.     my $coeff_speed = $coeff_temp;
     
143.     $coeff_speed = ($coeff_speed_min + $coeff_speed) > 0.99 ? 0.99 :($coeff_speed_min + $coeff_speed);
     
144.    
     
145.     my $duty_cycle = int($coeff_speed * $period);
     
146. 
     
147.     if($fanclose_temp == 0) {
     
148.         $duty_cycle = 0;
     
149.         }elsif(($fanclose_temp == 1)&&($fan_up == 1)){
     
150.                 $duty_cycle = $duty_cycle_on ;
     
151.                 $fan_up = 0; #风扇已启动,清零首启转志位
     
152.                 }else{
     
153.                 }
     
154.    
     
155.     open my $fh, ">", "/sys/class/pwm/pwmchip0/pwm0/duty_cycle";
     
156.     print $fh "$duty_cycle\n";
     
157.     close $fh;
     
158. }
     

复制代码

Dannysw

非常感谢，试用一下

epub

太棒了，谢谢分享。